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ABSTRACT 

The Computer Aided Prototyping System (CAPS) was created to rapidly prototype 
real-time systems to determine early in the development cycle whether system 
requirements can be met. The CAPS consists of several software tools that automatically 
generate an executable Ada model of the proposed system. This thesis describes the 
development of a design database (DDB) for the CAPS. The DDB is an engineering 
database that contains all information related to a prototype software design. The DDB 
enhances the CAPS environment and the prototyping paradigm by providing to the 
designer the functions of storage, retrieval, viewing, and versioning of prototype 
components. 

Garry Lewis is the primary author of chapters I and II and Drew Dwyer the primary 
author of chapters III and IV. In the joint implementation, Lewis focused on the design 
database schema and C++/ONTOS issues. Dwyer was responsible for building the 
command line interface, the hierarchical k-ary data structures and the C++ classes/methods 
for traversing this structure. Items not covered in the above description were mutually 


developed. 
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I. INTRODUCTION 


A. SOFTWARE ENGINEERING 

Each year billions of dollars are allocated for the development and maintenance of 
progressively more complex weapons and communications systems [Ref. 1:p. 14]. These 
Systems increasingly rely on information processing using embedded computers systems. 
Satellite control systems, missile guidance systems and communication networks are 
examples of embedded systems. Correctness and reliability of these software systems is 
critical to the reliable operation of national defense systems. Moreover, software 
development of these systems is an immense task with increasingly higher costs and 
potential for misdevelopment. 

Studies conducted in the early 1970’s showed that computer software alone 
comprised approximately 46 percent of the estimated total DoD computer cost. Of this cost, 
56 percent was devoted specifically to embedded systems [Ref. 1:p. 14]. In spite of the 
tremendous cost, there were examples of software systems produced that exceeded 
estimated development cost, fell behind the production schedule and were delivered not 
fully functional. 

Software engineering developed in response to the need to design, implement, test, 
install and maintain more efficiently and correctly larger and more complex software 
systems. Numerous methodologies have been introduced to support software engineering. 
The two major approaches which underlie these different methodologies are the phased 
refinement and prototyping method of development. 

The predominant model for current application development is the phased refinement 
approach. In this approach, all system functionality is specified in the first step of 


development, and subsequent implementation phases add prescribed design details. This 


approach 1s criticized for its high cost of maintenance, failing to abstract tasks early in the 
development process, and for complications in system integration. Prototyping, as an 
evolutionary system development paradigm in which a number of nonstandard concepts 
work together, promises to achieve effective evolution of integrated hardware/software 
systems. 

Prototyping is the process of developing a scaled-down version of a system to use in 
building a full-scale system. Computer-aided rapid prototyping promises to provide a 
means for building a scaled-down version of a system more quickly than using 
conventional approaches. The final product of the prototyping activity is a working model 
that can be used for many purposes, such as requirement validation, feasibility study for a 
complex system, and functional specification of a system design. [Ref. 2:p.9] Figure 1 
illustrates the role of prototyping in software development.. 

The process model differs from the traditional phased approach in that it concentrates 
on the hard problem of system development, namely; requirement specification, and design 
rather than coding. Equally important, validation, evaluation, and hardware/software trade- 
off analysis are all part of the development process--they do not just follow completion of 
the development in each phase. Rapid prototyping works by providing continuous feedback 


information as rapidly and efficiently as possible. [Ref. 2:p. 9] 


B. THE COMPUTER AIDED PROTOTYPING SYSTEM (CAPS) 

The evolution development of a software system design requires an integrated design 
support environment. A typical structure for a design environment that supports the rapid 
prototyping paradigm and the evolution process model is that provided by the CAPS[Ref. 
4:p. 15]. 

CAPS is a rapid prototyping environment which includes the ability to prototype hard 


real-time systems. This approach to rapid prototyping uses a specification language called 
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Figure 1. Process Model for Software/System [Ref. 3: p.7] 





Prototyping System Design Language (PSDL) and an integrated set of prototyping tools. 
The tools are integrated through the user interface. The primary tools in CAPS may be 
divided into three main systems [Ref. 4:p. 15]. The subsystem and their tools are: 

The User Interface which is composed of the following tools: 
Graphic Editor 
Syntax Directed Editor 


Browser 
Expert System 


The Software Base System which is composed of the following tools: - 


° Software Design Management System 
° Design Database 
° Software Base 


The Execution Support System which is composed of the following tools: 


Translator 

Static Scheduler 
Dynamic Scheduler 
Debugger 


The Graphic Editor is a tool which permits a designer to specify a portion of a PSDL 
prototype using graphical objects to represent the system. Graphical objects include 
operators, inputs, outputs, data flows, and self loops on operators. All graphic objects are 
named and may have time constraints associated with them. 

The Syntax Directed Editor is used by the designer to enter the text portions of the 
prototype design not represented by the graphic editor and to ensure that the prototype is 
syntactically correct PSDL. 

The Browser provides a means for the designer to view reusable components in the 
software base. 

The Expert System provides a paraphrasing capability that generates English text 
descriptions of PSDL specification. This tool permits users who are unfamiliar with the 
PSDL language to evaluate a prototype. 

The Software Design Management System manages and retrieves the versions, 
refinements, and alternatives of the prototype in the Design Database and the reusable 
components in the software base. 

The Design Database contains PSDL prototype descriptions for all software projects 
developed using CAPS. 

The Software Base contains PSDL descriptions and implementations for all reusable 


software components developed using CAPS. [Ref. 5] 


The Translator generates high level code from the PSDL prototype which binds the 
reusable components from the software base to the executable prototype. [Ref. 6] 

The Static Scheduler attempts to allocate time slots for the representation of PSDL 
operators with real-time constraints before the prototype is executed. If the allocation 
succeeds, all operations are guaranteed to meet their deadlines. [Ref. 7] 

The Dynamic Scheduler invokes representation of operators with real-time constraints 
at run-time to occupy time slots which are not used by operators with real-time constraints. 
The time slot which the dynamic scheduler uses are “slack times’. Dynamic scheduling 
occurs during execution of the prototype. [Ref. 7] 

The Debugger allows the designer to interact with the execution support system. The 
debugger has facilities for initiating the execution of a prototype, displaying execution 
results or tracing information of the execution and gathering statistics about a prototype’s 
behavior and performance. 

Prior to the work described in this thesis, implementations had been developed for the 
graphic editor, translator, static scheduler, and user interface. The design of a debugger has 
been defined. Feasibility studies had been conducted for the syntax directed editor, design 


database and the software base. 


C. PROBLEM STATEMENT 

Vast amounts of evolving data are created in the design of hard real-time systems. The 
data must be managed so that it can be stored and retrieved according to the needs of a team 
of design engineers. In CAPS, the Design Database (DDB) must manage the storage and 
retrieval of the PSDL program. The DDB must be a specialized DBMS which will store 
PSDL specifications in a hierarchical format and manage all support files associated with 


a software design project. [Ref. 8:p. 5] 


The DDB also provides concurrency control functions that allow multiple designers to 
update parts of the prototype without unintentional interference. In the interest of 
minimizing delay, the design database will not lock out read-only access to any part of the 
design, even while the design is being updated. Instead, the system will allow examination 
of the previous version of the component, with a warning that a new version is currently in 
preparation. On request, the system will provide information about the reason for 


modification of the component (such as a new or modified requirement). 


D. OBJECTIVES 

The objective of this thesis is to develop an object-oriented design database for the 
CAPS. The design database must be accompanied by a user interface that enables the 
designer to perform routine database tasks such as opening, closing, querying, storing, and 


retrieving operations. 


E. ORGANIZATION 

Chapter II contains a survey of the requirements for an engineering database with an 
emphasis on the object-oriented approach. An introduction to ONTOS, a state of the art 
object database will conclude Chapter II. Chapter III contains the design of the database 
objects. Chapter IV shows the design database implementation details using C++ and 


ONTOS. Conclusions and recommendations will be presented in Chapter V. 


Il. BACKGROUND 


A. ENGINEERING DATABASE 
An engineering database should provide the following facilities to support computer- 


aided software development environments: 


° Persistence 

. Concurrency control 

° Version control 

° Reuse of past design objects 

° Configuration control 

° A wide variety of data storage 

° Guarantees data will not be corrupted due to system or media failure 


A fundamental feature provided by a database is persistent storage. If objects are 
persistent, this means the objects in the database will exist after the process that created 
them has terminated. [Ref. 9:p.472] 

In a design environment, one usually has to keep data on several design alternatives, 
revisions, design stages, and so on. Hence information about the same semantic entity has 
to be recorded more than once. If versioning is implemented in the DBMS’s storage 
subsystem, then it can be done on fine granularity components. When creating a new 
version, only those components that have changed since the previous version need to be 
stored. In the new version, unchanged components can be represented by pointers to their 
previous versions. This is efficient in storage because only the changed components are 
repeated in the new versions. It is also efficient in execution time; since versions are not 
encoded they can be retrieved directly instead of being reconstructed using change logs, as 
in RCS and SCCS. [Ref. 10:p. 168] 

The goals of configuration management include recording the development history of 


evolving systems, and aiding the management of the systems in guiding and controlling 


their evolution [Ref. 11:p. 918]. A structure that captures the evolution of a design in terms 
of its hierarchical decomposition, alternative implementation and revision history, 1S 
crucial to the effective reuse of past design objects. 

The partitioning of the design task across levels of abstraction and between many 
design engineers requires the design database to support Concurrent access and implement 
concurrency controls. The issue of concurrent access for a design is significantly different 
than for a conventional database application due to the different lengths of transactions that 
each must support. In a design environment, individual design objects may be “checked- 
out” for long periods of time [Ref. 12:p. 66]. However, over the course of some transactions 
other designers may require “access” to a design object that is already checked-out. The 
concurrency control system must therefore support an object locking mechanism that 
remains in the database after the current process has ended and permits a designer to view 
objects already checked out to be operated on by another designer. 

The design database must store a variety of formatted, unformatted, and variable- 
length objects such as program text. In addition to program text, the design database must 
store management information and natural language descriptions for documentation/ 
historical purposes. One of the criticisms of relational DBMS is that they are inadequate for 
the data handling requirements of a support environment. 

Securing data stored in a design database is another concern [Ref. 13: p. 37]. Some 
type of mechanism must exist whereby access to objects in the database can be restricted. 
Protecting high-value data (a civilian company’s proprietary information, or sensitive 
military data) from compromise requires a system that is sophisticated enough to 
distinguish different user access privileges and appropriately grant or deny access to a 
particular object in the database. 


Finally the database must ensure that data will not be corrupted due to system or media 


failures. 


B. OBJECT-ORIENTED DATABASE MANGEMENT SYSTEMS 

Object-oriented database management systems (OODBMSs) in particular offer 
several features that promote rapid prototyping. One of the major advantages of the object- 
oriented paradigm is increased modeling power. Objects and their relationships in 
OODBMSs can be aligned very closely to objects and their relationships in the real-world. 
On the other hand, conventional data modeling paradigms such as file formats or relational 
models require considerable effort to force real-world objects into fixed programming 
constructs. Thus, a semantic gap exist between the way information 1s stored and the way 
it is used. Relational databases, in particular, are inadequate for storing complex 
information structures such as those in the CAPS. [Ref. 14:p. 32] 

OODBMSs typically provide a set of predefined system types, such as Set, queue, 
stack, list, and ordered dictionary. This simplifies the modeling effort as the designer can 
concentrate on the problem at hand and not clutter the solution with “data structure” 


specific procedures. 


1. Modelling Object Relationships. 


Using a limited set of constructs to model diverse concepts inevitably leads to loss 
of exact meaning. OODBMSs provide several mechanisms to model different relationships 
among objects. Object specialization/generalization refers to the ability to organize objects 
in an is-a-kind-of hierarchy. Classification is the ability to relate an object to a group of 
objects via the is-an-instance-of relationship. Aggregation allows the programmer to model 
an object as an aggregate of its constituent objects. This type of relationship is known as 


the is-a-part-of relationship. [Ref. 14:p. 32] 


2. Data Abstraction and Data Hiding. 

The advent of third-generation programming languages points out the need for a 
clear distinction between the storage structures associated with the data and the logical 
structure of the information. Data abstraction refers to the extreme case of this separation, 
where access to the storage structure may only be gained through a set of predefined 
operations. Data hiding insulates the programmer from the actual structure where data is 
stored. In OODBMSs, completely encapsulating an object with its data and operations 
forces the programmer to use the correct operations on all objects. In addition, a 


programmer need only know about the objects that his or her code uses. [Ref. 14:p. 33] 


3. Property/Operation Inheritance. 


Property/operation inheritance implies that an object type automatically has all 
the properties/operations of its parent type. This is one of the fundamental differences 
between OODBMSs and relational databases. [Ref. 14:p. 33] 

From the standpoint of rapid prototyping, operation inheritance is perhaps more 
valuable than property inheritance. A programmer does not need to reimplement the 
behavior that a type shares with its supertype. More importantly, this allows a programmer 
to assign default behavior to objects. In fact, once the subtype-supertype link is established 
in the is-a-kind-of hierarchy, a large amount of code automatically become available to the 


object, even before a single line of code specific to the new object type has been written. 


[Ref. 14:p. 33] 


4. Method and Trigger Combination. 


Method and trigger combination invokes writing several small modules of code 
and using them in different combinations to form methods for different types and situations. 
In conventional programming, this would involve many checks which would make the 
code inefficient. However, with OODBMSs, the automatic dispatching mechanisms (see 


the next section) allows programmers to combine modules by triggering them at the 


appropriate places. Each object-specific operation module is designed to handle its 


additional set of properties and then invoke the corresponding module of its supertype. 


5. Generic Programming. 


In generic programming, programmers write code modules as general as possible 
so they can be used by different types of objects. Two essential features of the object 
paradigm--polymorphism and access to metainformation--help generic programming. 
Polymorphism is the ability to automatically dispatch a call to an appropriate routine 
according to the type of parameters passed. This feature makes code upward compatible 
and resilient to modifications [Ref. 14:p. 34]. Another characteristic of OODBMSs that 
makes a program resilient to the addition of new types is the accessibility of 
metainformation. The user- defined types are actually objects compiled into the database. 
They are therefore available to a program just like any other project. The advanced 
exception-handling capability of OODBMSs comes in handy in rapid prototyping. 
Typically, a large amount of code in an application’s final version deals with erroneous 
input data or other anomalous situations. Programmers would like to avoid such detailed 
error handling in early prototypes. If exceptions are also treated as objects, a programmer 
can initially write a simple exception handler for the most general type of exception. The 
programmer can then gradually refine this default exception handler as the prototype 


grows. 


C. ONTOS OBJECT DATABASE 

We used the ONTOS Object Database as the database engine for the design database. 
ONTOS, and its predecessor Vbase, are products of Ontologic, Inc. Vbase was used at the 
Naval Postgraduate School to test the feasibility of a design database after completion of a 
conceptual level design [Ref. 8:p. 9]. 

We conclude this section with a description of the functionality provided by the 


ONTOS Object Database. 
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ONTOS supports the full object model. The database schema represents object 
classes, data members (properties) and member functions (operations). Any class definition 
which can be specified in C++ can be stored in ONTOS as an ONTOS Type. 

ONTOS supports both the single and multiple inheritance model of object oriented 
programming. The class model that is used in the C++ application is represented in the 
database as object schema. ONTOS schema information is stored directly in the database 
as object data. 

ONTOS provides three interfaces for use by the application programmer: a C++ 
interface, an Object SQL interface, and a programmatic schema manipulation facility. We 
are primarily concerned with the C++ interface. ONTOS provides an interface to C++ 
which is simple to use. It provides a transparent database interface which is generated by 
ONTOS utilities. 

ONTOS uses a standard client-server architecture. C++ client applications interact 
with a logical ONTOS database server. The ONTOS database server provides object 
storage, transactions, concurrency control and other database services. C++ client 
application make requests to the database server to access and store objects. When a client 
application requests an object, the system automatically translates the object into its C++ 
in-memory representation and places the object in the C++ client application’s in-memory 
process heap. 

ONTOS provides Aggregate classes including Set, List, Array, and Dictionary. Sets 
adds the functionality of mathematical sets to C++. Sets are unordered, unkeyed 
Aggregates with no duplicate members. Lists provide the abstraction of linked list; 
logically, members are stored serially, in a chain. Each position in the chain is numbered, 
Starting at position zero. An Array is an Association of declared size whose keys are a 


continuous range of integers and whose members are Entities. Dictionaries are 


Associations whose keys and members are Entities and whose size is unrestricted. 
Dictionaries may be ordered or unordered. 

ONTOS supports the standard, locked-based transaction model which is common to 
all major database systems. The transaction protocol supports transaction start, checkpoint, 
commit and abort. Checkpoint allows a transaction to commit the changes made up to 
checkpoint and then to continue with the transaction. ONTOS transactions also support 
transaction journaling. Journaling maintains a log of changes made to the database within 
a transaction, which can be used to provide roll-forward recovery after a server process 
failure. 

In addition to the standard transaction model, ONTOS supports high-concurrency and 
shared transactions for workgroup applications. as well as nested transactions with 
transaction-based undo capabilities. 

Onto supports locking at the level of object, aggregate and page. Object-level locking 
provides locks on individual objects, thus providing the highest possible concurrency. 
Aggregate -level locking allows any aggregate of objects to be locked as a group, to provide 
higher-granularity locking and concurrency control strategies. Page-level locking provides 
optimum locking performance for large groups of objects physically clustered on disk. 

The high level of abstraction provided by C++, together with ONTOS’ complete 
support of the object model, matched against the requirements for a engineering database 


gave us complete confidence in our choice of tools for implementing a design database for 


CAPS. 


IT. REQUIREMENTS SPECIFICATION 


Here we define and present a summary of the requirements specification for the DDB. 
This set of requirements was developed using the Berzins and Luqi model of Software 
Engineering. This model requires a problem statement, development of an 
environmental model and goals, and consideration of the constraints imposed on the 
system. [Ref. 9:p. 24] 

An additional methodology providing complimentary structure and style is Yourdon 
[Ref. 15]. In this approach the designer develops an Environmental Model and a Behavioral 
Model. The environmental model details interactions between the DDB and the user. The 
users 1n our model are the tool interface of the CAPS system and the end user (designer). 
The tool interface responds to the needs and queries of the end user and other tools in the 
CAPS system. The behavioral model describes the internal mechanisms at work in the 


DDB system. 


A. GOALS 
The goals of the DDB are as follows: 


¢ Provide functionality which supports the needs of a prototype designer 
using the CAPS system. 

¢ Develop a system which encapsulates data and functions together 

¢ Provide flexibility for future development and change 


B. DDB INTERFACES 


1. Tool Interface 
The tool interface is the glue which binds the individual CAPS tools together. A 
picture containing the tool interface and its relationship to the other tools is provided in 


Figure 2. The tool interface interprets and reformulates requests sent from one tool to 
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Figure 2. Computer Aided Prototyping Environment [Ref. 3:p. 16] 


another - modifying the request to achieve the desired output. A typical sequence of 


requests is shown in Table 1 in informal language. 
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TABLE 1: TYPICAL TOOL INTERFACE INTERACTION 


In the previous design of CAPS, if the designer had to communicate with a tool, 













that tool provided its own end user interface [Ref. 3:p. 21]. However, the DDB responds to 
commands only from the tool interface. The user interface required to query the DDB and 
store, retrieve, or manipulate prototypes is important for extending the DDB’s services to 
the end user. A graphical user interface has been developed as a separate tool that interacts 
with the DDB via the tool interface. This end user interface extends to the user those 
functions defined in chapter IV of this thesis. The end user interface is discussed briefly in 


the next section. 


2. End User Interface 


Due to the scope of the DDB’s requirements, we need to separate the DDB’s 
functionality from the user interface functionality. For this reason the end user interface 
requirements of the DDB were removed and developed separately from the functions 
provided by the DDB. A graphical user interface developed at the Naval Postgraduate 
School allows the designer to take full advantage of the functions provided by the DDB 
[Ref. 14]. The user interface runs under the control of the tool interface. An example of the 
screens which a user will see when he requests access to prototypes stored in the DDB is 
illustrated in Figures 3 through 6. These figures illustrate the sequence of panels a designer 
will see/use when generating the following DDB commands: 


¢ List the names of the initial decomposition of prototype operators stored in 
the DDB and search for a component contained inside of the composite 
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component “‘user_interface”’ 
¢ View acomponent’s PSDL Source 
¢ Select and Edit a prototype’s attributes 


File Edit View Select Quit 


Database: 

Prototype: c31 

Configuration: 
Operator Version 
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navigation_systen 
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Figure 3. DDB User Interface (Search for Component) 


The user moves the selection bar to the desired versioned component (Operator). After 
the operator (user_interface) is highlighted, double click on that component to see the 
decomposition of that operator. The resulting view of the decomposition of the 
user_interface operator is shown in Figure 4. 

After the PSDL operator message editor is highlighted (single clicking on that 


operator) the designer selects the pull-down menu option File and moves the selection bar 
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Figure 4. DDB User Interface (View PSDL Source) 


In Figure 5 the user highlights the prototype c3i and selects edit prototype. The results 


This method of developing the user interface (DDB->tool interface->user interface) 


PSDL Source for the message_editor (not shown). 
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implemented in the DDB will be explained in Chapter IV. 


to PSDL Source. When that option is activated the user is able to view the contents of the 


of this action (Figure 6) present the user with an edit screen which allows him to edit 


various data fields of the prototype. The composition of prototypes and other classes 


enhances modularity and provides flexibility to the overall CAPS system. Consequently, 


View Select Quit 


Version 





Figure 5. DDB User Interface (Edit Prototype )) 


whatever form the tool interface and other tools assume in the future, the functions of the 
DDB shall require little modification. Designing the DDB in this manner permits porting 
the CAPS system to different graphical user interfaces existing on a wide variety of system 
platforms. 

The above examples represent a small portion of the capabilities of this engineering 
database. These functions are further defined later in this thesis. Hereafter in this chapter 
the term “user” will be used generically to refer to the tool interface and/or prototype 


designer (end user). 


19 


Save Quit 


Prototype: C3i Date: Thu Sep 12 16:00:00 1991 
Leader; Marianme Aiello 
Description: 
This project deals with the command and control > 
functions in the Aegis Cruiser line. 
Expected completion date 1s December, 1992. 
eam Members assigned to develop this Prototype 
John 646-5123 
Henry 646-7815 
Maryanne 646-0917 





Figure 6. DDB User Interface (Edit Prototype Panel) 


C. ENVIRONMENTAL MODEL 


The DDB statement of purpose, event list, and context diagram are contained in 


Appendix A. A summary of the model is presented in the remainder of this chapter. 


1. Working Environment 
Prototypes are developed in a system work area for CAPS development specified 
by a case sensitive Unix environment variable ($PROTOTYPE) defined by the user . The 
value of this variable should be the path name of a unique Unix directory. The DDB reads 


this system variable to ascertain where to output prototype components. Components are 
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immutable snapshots of prototype development efforts. Components may be composite - in which 
case they contain other components, or they may be atomic - in which case they do not have a 
decomposition. Atomic components may be transformed to composite components in future 
decompositions. Once a prototype is stored into the DDB, the database copy may not be altered. 
To modify a prototype, a copy of the prototype must be checked out of the DDB and put into the 
user’s local area. The user then modifies the working copy. When this copy is significantly altered 
and certified as an updated version it is checked back into the DDB as a new version of the 


prototype. This process is called threading components [Ref. 11]. 


2. Version Structure 


Each component represents a PSDL operator or type. Every component in the DDB has 


its own unique thread. This concept is illustrated in Figure 7. 


Versions of an Object 





Or 


Figure 7. Threaded Components 


Versions of a component are ordered by a thread. Each component in the database may 
reference several types of files generated by various CAPS tools. Figure 8 shows the potential set 
of files generated for a single component in the DDB. 

Inserting a component in a thread and storing it into the database can be modeled as 


creating a node in a multi-level acyclic graph. In the fully developed model, threads may split at 
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any point into variations [Ref 11]. In the current implementation, there is no provision for 
a segmented join of separate variations, although the groundwork has been laid in the 
design of object oriented structures which supports a transition to the full model. 
Decomposing components is an essential requirement for modeling the problem domain. 
This decomposition produces a multi-level k-ary hierarchy that must be navigated 
effectively to view and modify any version object upon demand. For this reason “walking 
the graph” [Ref. 17] is essential. 

Three of the primary entities identified for the DDB - a prototype, a 
configuration, and a versioned component will be discussed in the next section. 

Taken as a whole, CAPS, PSDL, and the DDB provides the software developer 
the ability to store, retrieve, and manipulate an unlimited number of prototypes and 
components. Working jointly with the other tools in the CAPS system, the DDB provides 


a capability never before available in computer aided prototyping. This enables the 


Ze 


development of large, real time, or embedded application prototypes more quickly and 


efficiently. 


D. BEHAVIORAL MODEL 


Just as a motion picture is a collection of still pictures, a prototype is a collection of 
versioned components. Our ability to understand a movie is directly related to how well we 
can grasp the relationship and flow from one frame to the next. Taken together as a movie, 
these frames can convey something of power and beauty. Developing a software prototype 
is analogous to understanding a movie. With the mght grasp of the tools available in 
computer aided prototyping, we can form truly productive prototypes. It is the relationship 
of one version to the next that conveys the direction of future development. As this 
transformation is captured and tools such as this DDB become fully mature, changes in one 
component that are dependent on another will be largely realized by automated 
transformations internal to the tool. These DDB consistency checks ensure that all 
components interact through their relationship in a database hierarchy. It is for this reason 
that cataloging and indexing individual CAPS components 1s essential. This 1s referred to 
as Evolution Management. [Ref 11] 

The basic prototype functions are illustrated in Figure 9. 

The DDB supports the viewing, storing, and retrieving of prototype components in a 
central design repository. Since prototypes are usually multi-level decomposed subtrees, 
the DDB provides a mechanism for viewing the complete hierarchy of a prototype 
components. The DDB stores components required by the other CAPS tools indefinitely. 
The DDB has no destructive capabilities on the attributes displayed in Figure 8. Once 
prototypes are posted to the DDB they will never be removed - although a capability to 
migrate prototypes to archival storage such as tape is planned. The DDB supports the 
concept of configuration control on a desired slice of the entire prototype history. The DDB 
does not store repetitive copies of individual components which do not have different 


versions. 
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Figure 9. Basic DDB/CAPS Functions 


I. Design Constraints 
The DDB processes commands from the tool interface. The manner in which data 
is passed between the tool interface, the DDB, and the end user interface is illustrated in 
Figure 10. The tool interface controls the user interface. The DDB communicates indirectly 
with the end user through the user interface’s handling of output from the main function 
calls to the DDB. Since the functionality of the DDB is separated from the user, security is 


enhanced and there is less chance for error. 


24 


—_ a —_— 






design Tool 


Command Line 







database Interface 







Output 


File I/O Generate Commands 
Status 
- EITOrs 
| | Stderr User 
UNIX Interface 
Work 
Area 


Figure 10. Tool/User Interface 


2. Requirements 

The user interface captures the standard output and displays it to the user in a window. The data flow 
diagram of the DDB is shown in Figure 11. The DDB first parses the command line to verify that the command 
contains a legal function tag and the appropriate number of arguments. A listing of the valid commands to the 
DDB is contained in Appendix B. After parsing the command, the DDB prepares the ONTOS DBMS for 
storage and/or retrieval by issuing specific ONTOS DBMS calls. Next the DDB reformulates the command 
and initiates the sequence of functions required to perform the transaction. At this point, the DDB will perform 
a query of persistent objects stored in the database or will create and input components designated to be 
checked into the database. The remaining step displays confirmation and/or displays the data to standard 
output (stdout). 

The end user can then choose to work with one of the other tools in the CAPS system for an indefinite 
period of time. When the designer/manager is ready to check a revision of the prototype back into the DDB 


he will provide the tool interface a prototype name and have the tool interface command the DDB to search 


Zs 





Figure 11. Design Database Data Flow 


the working directory defined by $PROTOTYPE to check modified or newly created 


components into the database as a new version of the prototype. 


The capabilities provided to the user will at a minimum contain the following high 


level operations: 


° 


® 


Insert new prototypes into the DDB 

View existing prototypes available in the DDB 

View/Update prototype attributes 

Insert new configurations into the DDB 

View existing configurations available in the DDB 
View/Update configuration attributes 

Insert new components into the design DDB 

View versioned components available in the DDB 

Retrieve selected versions of components from the DDB 
Prevent others from versioning components which are currently evolving 
Update previous versions spawning alternate thread histories 
View/Update component descriptions in the DDB 


In addition to the above capabilities, the DDB will allow the tool interface to: 


Override component locking mechanisms 
View component lock status 


26 


¢ View a worker which currently has a component locked 
¢ List decomposition of operator/type components and their descendants 
¢ Attach any component to a configuration 


e Navigate the hierarchy from any component directly or through a 
configuration. 


More generic database management capabilities are provided by the ONTOS 
object oriented database. These DBMS capabilities are considered vital to the successful 
implementation of any database management system. For further information pertaining to 
these and other ONTOS issues the reader is referred to Chapter II and the ONTOS (version 


2.01 beta) users’ manual. 
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IV. ARCHITECTURAL DESIGN 


Much of the analysis and research in this area dictates an object oriented approach for 
classifying the schema and functions of a prototyping storage and retrieval system. To 
version components which carry information relating to specifications of a software 
prototype the DDB is modeled in terms of its major classes TEXT_OBJECT, 
COMPONENT, WERSIONED_OBJECT, THREAD, CONFIGURATION, = and 
PROTOTYPE. In this chapter we define these classes, their behavior and attributes, and the 


operations they perform. 


A. GOALS 


The process of developing this application utilizes the object-oriented Programming 
concepts of specification, implementation, and refinement [Ref. 18:p. 5]. First we collect 
the requirements in terms of user needs. The result of this phase is documented in Chapter 
III. The next step is to develop a conceptual solution to the requirements. We then convert 
these conceptual ideas into concrete classes and operations. This is accomplished by first 
converting the entity-relationship (ER) diagram to a functional specification. 

From the functional specification we determined that a command line interface would 
best satisfy the requirement for separating the functionality of the tool from other CAPS 
tools and from the end user. The command line interface divides the functionality into three 
distinct classes - functions dealing with prototype level operations, those concerned with 
configurations, and those dealing with versioned component objects. The complete 
command line interface is contained in Appendix B. 

Now we develop an informal solution followed by a formal solution to the stated 


design requirements. 
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B. DESIGN DATABASE 


1. Informal Solution 


The DDB must contain a class structure and methods which support the 
storage, retrieval, and management of CAPS prototypes. Next we integrate the ONTOS 
object oriented Database Management System with locally engineered classes and methods 
designed to support the informal solution and stated requirements. This equates to 
designing a database schema. Choosing this approach carries several distinct advantages: 


e Saves money because the DDB can be developed in less time 

¢ The ONTOS system provides an extensive developer’s library 

e¢ Enhances Security 

e Network capabilities are built in 

¢ Encourages the use of off the shelf generic software programs 

¢ Incorporates enhanced documentation on data structures provided by 
ONTOS 

e Ensures modularity 


These and other advantages are discussed in Chapter II. 


2. Entities and Their Relationships 
The set of files reflected in Figure 8 become the primary attributes of a versioned 
component in the database. Other attributes required to effectively scope and manage these 
components and the unique capabilities supported by versioning are contained in the ER 
diagram shown in Figure 12. 
Figure13 shows the lower level entities required to support the data structure of a 
versioned component. The entities THREAD, COMPONENT, and TEXT_OBJECT 


reflect the core elements stored as objects in the ONTOS database. 


3. Pre-defined ONTOS Classes 
The main ONTOS classes used in this DDB application are: 
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Figure 12. Design Database Entity Relationship Diagram 


a. Object 


Object is the class used to create persistent objects in the DBMS. All classes 
requiring persistence must inherit from Object. Persistent objects exist for longer than the 
immediate I/O session. An object is persistent if you can store it in the database and retrieve 


it at a later time. If an object is persistent it must have a unique id. This identification 
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Figure 13. Design Database Entity Relationship Diagram 


number may be explicitly assigned by the DDB application or defaulted to a unique id key 
field generated by methods provided by this ONTOS class. This allows us to store several 
different components in the database with the appearance of each component having the 


same name. 
b. List 
Lists belong to a container class which can store other objects of any type. As 
a basic data structure, its sister class List_Iterator is used to iterate from one instance of an 
object to the next. 
c. Dictionary 
Working on an indexed set of objects contained within it, Dictionary is also a 


container Class. It differs from List in its implementation and in its available methods for 


directly accessing any item contained within it based on key values. 


4. Design Database Classes 


The DDB classes and methods work to provide the user the functionality of a 


library. You can check components in or out. However, unlike a library, when you check 
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components out of the database for updating, a “copy” of the components is put into your 
private work area. These components are then flagged inside the DDB as being “locked”. 
This lock prevents other designers from checking out the same components for updating. 
The original component remains in the database and can never be altered. It is an immutable 
copy of the designer’s prototyping efforts at the time it was checked into the DDB. Other 
workers who attempt to check out the same versioned components may “view” the 
prototype, but may not modify or evolve the prototype into a newer version. The designer 
unlocks the prototype when it is checked back into the database. If changes were made to 
a component then that component will version. If no changes were made then versioning 
will not be necessary and will not occur. In either case, when a prototype is checked back 
into the DDB, the locks on components in that prototype are removed. 

A diagram of the class hierarchy for the persistent objects in the DDB is included 
as Figure 14. A class is a high level abstraction that represents something in the real world. 
All classes developed to support this model are further elaborated with a class description, 
behavior, attributes, and operations in the rest of this section: 

Persistent DDB Classes 

Class COMPONENT 

COMPONENT is an abstract class in the DDB. It is the core element in the DDB 
and represents a composite or atomic PSDL operator/type. As reflected in the ER diagram 
contained in Figure 10, a component contains a variable number of TEXT_OBJECTS. 

COMPONENT, like all persistent classes, is a descendant of the ONTOS class 
Object. If a class intends to store persistent objects in the ONTOS database then the class 
must inherit from the Object class. 

A diagram of these dependencies is shown in Figure 14. 

Behavior: 

COMPONENT is an abstract container class for TEXT_OBJECTS. It is 
important to note the distinction between atomic and composite components in the DDB. 


Atomic objects differ from composite objects in the following way: composite objects 
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Figure 14. Design Database Descendants of Class Object 


decompose into other composite and/or atomic objects, but an atomic object has no further 


decompositions. In the multi-way tree utilized by this application, atomic objects have no 


children. 


Set of Attributes: 

text_object_list -> contains the list of text_objects in the component. May contain 
between zero and five of the following files: 

Postscript: A file containing Postscript Description Language required by the 
graphic editor. 

Graph: A file containing shapes and geometric point information required by the 
graphic editor. 

Implementation; A file containing either Ada source code or a PSDL 
decomposition. This file is used by the syntax directed editor, the dynamic 
scheduler, and the translator. 

epecification: A file containing Prototype Specification Description Language 
(PSDL). This file is used by the syntax directed editor, the software base, the 


dynamic scheduler, and translator. 


Source: ADA Code - a special file containing the source code for the component 
and/or prototype. 

Operations: 

COMPONENT -> creates an instance of the COMPONENT class. 


getDirectType -> returns an ONTOS Typel. 

getComponentNames -> returns the names of the TEXT_OBJECTS. 
getComponentSource -> restores the Postscript, graph, implementation, 
specification, and source file attributes of a versioned component to the 
appropriate files in the designer’s work area. 

addTextObject -> adds a TEXT_OBJECT to the COMPONENT. 

getPSfile -> restores the Postscript file attribute of a versioned component to the 
appropriate files in the designer’s work area. 

getGRAPHfile -> restores the graph file attribute of a versioned 

component to the appropriate files in the designer’s work area. 

getSPECfile -> restores the graph file attribute of a versioned component to the 
appropriate file in the designer’s work area. 

getIMPfile -> restores the graph file attribute of a versioned 

component to the appropriate file in the designer’s work area. 

getsSOURCEfile -> restores the graph file attribute of a versioned 


component to the appropriate file in the designer’s work area. 


Class CONFIGURATION 


When a large prototype is developed and evolved from one version to another, the 


user may wish to selectively group different versions of the component and its graph 


subtree into more manageable sets. CONFIGURATION is an abstract class which allows 


the designer to more effectively deal with selected subsets of components. Remembering 


that the database will eventually consist of several versions of a prototype and its 


1. Refer to Chapter II Section C for definition of ONTOS Type 
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decomposed components, the user may decide to set up a configuration to reflect version 
number 1 (CONFIG1)and a newer configuration to reflect those components contained in 
version number 2 (CONFIG2). Working with configurations, the user may decide that the 
earlier configuration needs further refinement or that the older configuration is more suited 
to his application development needs. The DDB will allow the prototype developer to 
check out the older configuration and retrieve all components contained in that 
configuration with one single command. When the DDB is fully matured, that 
configuration will be checked back into the database as version 1.1 - spinning off a new 
thread from the base thread. This concept of a variation is not implemented in this version 
of the DDB, but will be developed in the next generation of the tool. 

Behavior: 

CONFIGURATIONS are entered into the database with commands given in 
Appendix B. A versioned component is then attached to the configuration as that 
configurations’ default versioned object. With this hook into the prototype tree structure, 
configurations allow the designer to navigate the prototype hierarchy - to store and/or 
retrieve versioned components quickly and efficiently to different work areas. 

Set of Attributes: 

config_status -> reflects the current status of design work. Possible values are ‘A’ 

- active; “T’ - archive to tape. 

config_manager -> shows who is managing the configuration. 

ConfCreationDate -> time/date that the configuration was created. 

conf_num_vobjects -> derived field containing the number of versioned 

components in the configuration. 

config _log_entry -> contains a running, non-erasable log journal reflecting all 

changes to the configuration. 

config_description -> A modifiable attribute which contains a generic description 


of the configuration. 
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the Versioned_Object -> the default versioned component which serves as this 
configuration’s entry point to the prototype hierarchical data structure. There is 
only one default versioned component per configuration. This is attached to a 
configuration after the configuration is inserted into the DDB. 

Operations: 

CONFIGURATION -> creates an instance of the CONFIGURATION class. 
getDirectT ype -> returns an ONTOS Type. 

Destroy -> cleans up the heap. 

getConfigName -> displays the configuration name to stdout. 

name -> returns the configuration name. 

getConfigStatus -> displays the configuration status to stdout. 
getConfigManager -> displays the configuration manager to stdout. 
getConfigLog -> displays the configuration Log to stdout. 

getConfigDescription -> displays the configuration description to stdout. 
dumpConfigSummary -> displays the date created, manager, default versioned 
component, and description to stdout. 

listConfigOperators -> lists the entire configuration subtree (all operators from 
default versioned component). 

updateConfigManager -> updates the manager attribute. 

updateConfigName -> updates the name attribute. 

updateConfigStatus -> updates the status attribute. 

addtoConfigLog-> appends entry to the log attribute. 


updateConfigDescription -> updates the configuration description. 


Class PROTOTYPE 
PROTOTYPE is the highest level abstract class. A prototype represents all of the 
information associated with one prototyping project. 


Behavior: 
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PROTOTYPES are entered into the DDB with commands reflected in Appendix 
B. PROTOTYPE is a container class which maintains references to CONFIGURATIONS 
and versioned components (V_OBJECTS). This ability to logically group several 
configurations and/or components into one prototype allows the designer to more easily 
manage a variable number of projects at any one time. 

Set of Attributes: 

protleader -> the name of the prototyping project leader. 

protDictIndex -> Required by ONTOS for Dictionary maintenance. 

protCreationDate -> The time/date that the prototype was created. 

protDescription -> A reference to a TEXT_OBJECT containing a text description 

of the prototype. 

prot_configuration_list ->A reference to a list of configurations associated with a 

prototype. 

prot_default_configuration -> A reference to the last configuration inserted into 

the prototype. 

Operations: 

PROTOTYPE -> creates an instance of the PROTOTYPE class. 

getDirectType -> returns an ONTOS Type. 

Destroy -> cleans up the heap. 

getName -> returns the PROTOTYPE object name. 

getConfigName -> returns default configuration object name. 

getPrototypeName -> displays prototype name to stdout. 

getPrototypeLeader -> displays prototype leader to stdout. 

getPrototypeDescription -> displays prototype description to stdout. 

changePrototypeName -> substitutes new name for existing name. 

changePrototypeLeader -> substitutes new leader for existing leader. 

updatePrototypeDescription -> substitutes new description for current 


description. 
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dumpPrototypeSummary -> displays the date created, leader, default 
configuration name, and description to stdout. 

addConfiguration -> adds configuration to prototype configuration list. 
listConfigurations -> lists configurations to stdout. 

setProtCreationDate -> sets the prototype creation date to system time. 
getProtCreationDate -> returns a time/date of prototype creation. 
getDefaultConfigName -> displays the default configuration name to stdout. 
getConfiguration -> returns the configuration requested. 
getDefaultConfiguration -> returns the default configuration. 

getVobject -> returns the most current versioned component matching the 


prototype name. 


Class TEXT OBJECT 

TEXT_OBJECT contains a file name and its associated text. 

Behavior : 

Accept the file name, construct an object in the ONTOS database to store the 
name and file contents, and read the file contents into the persistent object. 

Set of Attributes: 

the_file_name -> name of the tool file. 

the_text -> contents of the text file. 

Operations: 

TEXT_OBJECT -> creates an instance of the TEXT_OBJECT class. 

getDirectType -> returns an ONTOS Type. 

Destroy -> cleans up the heap. 

append -> reads the contents of the file into the ONTOS object. 

text -> sends a stream to output file. 

rebuildTextFile -> rebuilds the text file in the user’s work area and returns 


completion status. 


38 


displayFileName -> displays the file name to stdout. 
getFileName -> return the file name. 
text -> returns the object’s text. 


resetTheText -> resets the text attribute. 


Class THREAD 

THREAD 1s a high level abstract class which contains one or more versions of the 
Same component. Additional components added to a thread have a version number 
determined by incrementing the highest version number of a component in the thread by 
one. 

Behavior : 

A thread is created for every new component entered into the database. Most 
methods check for the existence of a THREAD prior to executing a requested operation. 

Set of Attributes: 

Current_version -> version number of the most recent version on the thread. 

the_list -> an ONTOS reference to a List containing different versions of a 

component. 

Operations: 

THREAD -> creates an instance of the THREAD class. 

getDirectT ype -> returns an ONTOS Type. 

Destroy -> cleans up the heap. 

getCurrent VersionNum -> returns the integer current version. 

current -> returns the versioned component (V_OBJECT) having the same 

version number as the current version attribute of the thread. 

version -> returns the versioned component (V_OBJECT) having the version 

number supplied by the calling method. 

add_object -> adds a new versioned component (V_OBJECT) to the thread. 
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displayThreadVersions -> display the version number of every versioned 

component (V_OBJECT) in the thread. 

displayThreadContents -> displays the version number and the description of 

every versioned component (V_OBJECT) in the thread. 

Class V OBJECT 

V_OBJECT is an abstract persistentclass. It represents an immutable snapshot in 
time of an operator/type that was checked into the database as part of a prototype design. 

Behavior: 

V_OBJECTS are entered into the DDB with commands reflected in Appendix B. 
Only the root V_OBJECT must be entered by the user (tool interface). The TREE class then 
scans the directory for other operators which are descendants of that operator and 
constructs a tree structure for comparison to the contents of the database. 

Set of Attributes: 

the VersionNumber -> the component’s version number. 

creationDate -> the date the component was created. 

lockTime -> the date the component was created. Evaluated as the system’s epoch 

time if not locked. Epoch time means no lock is set and lockTime equals zero. 

node_name -> short node name. No ancestor information. The long name is 

contained in the THREAD class. 

creator -> name of the end user who created the component. 

worker -> if the component is locked, then this attribute contains the name of the 

worker who checked it out. 

visited -> a boolean used to navigate the tree structure. 

last_op_checkin -> a boolean used to prevent duplicate checkin operations. 

theDescriptionPtr -> TEXT_OBJECT containing the description for this 

versioned component. 

the ThreadPtr -> pointer to the THREAD this versioned component is contained 


in. 
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the COMPONENTPt -> points to the component which contains the text object’s 
for this versioned object. 

theChildPtr -> points to a list of Children. 

theParentPtr -> points to the most current parent. 

Operations: 

V_OBJECT -> creates an instance of the V_OBJECT class. 

getDirectType -> returns an ONTOS Type. 

Destroy -> cleans up the heap. 

connect_vobject_to_thread -> attaches a versioned component to a thread. 
setParent -> set’s versioned components Parent. 

setNodeName -> pulls the short node name from the thread name. 
getNodeName -> returns the short node name. 

getVobjName -> displays the component name. 

getName -> returns the component name. 

reset VisitedFlag -> used to navigate the tree. 

set VisitedFlag -> used to navigate tree. 

getVisitedFlag -> TRUE if visited, FALSE otherwise. 
getVObjComponentsName -> display the names of the text objects associated 
with this versioned component. 

display VersionNumber -> displays the component’s version number to stdout. 
get VersionNumber -> return the component’s version number. 
dumpVobjSummary -> displays the date created, creator, worker (or None if 
unlocked), lockTime (or NONE if unlocked), and description to stdout. 
setCreationDate -> The time/date that the component was created 
getCreationDate -> returns the time/date the component was created. 

setLock -> set’s the lockTime immediately following checkout. 

getWorker -> return the worker who has the component locked. 


getCreator -> return the end user who created the component into the DDB. 
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setWorker -> set the worker to the $USER environment variable. 
resetLastOpTrue -> if last operation was a checkin, then set the last operation 
checkin attribute to TRUE. prevents duplicate checkins. 

resetLastOpFalse -> on a checkout, reset the last operation checkin to FALSE. 
get_last_operation -> returns TRUE if last operation was a checkin. 

releaseLock -> resets lock and returns completion status. 

getLockTime -> returns the lockTime of the component. 

getDescription -> displays the description to stdout. 

listChildren -> displays a list of children of this versioned component to stdout. 
longlistOperatorNames -> displays a long list of all operators/types in the subtree 
of this versioned component. 

listOperatorNames -> displays a list of all operators/types in the subtree of this 
versioned component. 

updateDescription -> updates the description attribute. 

addCOMPONENTNode -> adds a component to this versioned object. 
deleteChildNode -> deletes a reference from the list theChildPtr. 

addChildNode -> adds a reference to the list theChildPtr. 

getParent -> returns the parent of this versioned component. 

getCOMPONENT -> returns the component of this versioned object. 
dumpSubtree -> rebuilds the versioned components in read-only or read-write 
mode into an end user’s $PROTOTYPE directory. 

releaseLockSubtree -> releases the lockTime on all versioned components in this 
component’s subtree. 

getChildren -> returns the list of Children of this versioned component. 
getChildPtr -> returns TRUE if the cardinality of children of this component is 
greater than zero. 

checkoutCOMPONENTNode -> rebuilds all text objects of the component 


attribute of this versioned object and returns completion status. 
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Non Persistent DDB Classes 


Class DIRECTORY 

A non-persistent class designed to evaluate the status of prototypes being checked 
into the DDB. 

Behavior: 

This class has no direct relationship to the end user interface. The directory class 
searches the $PROTOTYPE subdirectory of the designer, determines what 
operators exist that match the prototype name, and develops a linked list of nodes 
to be inserted into a multi-way tree. The output from this class is passed to the 
TREENODE class for insertion of nodes into the persistent database. 

Set of Attributes: 

TREENODE_linked_list -> operator/type nodes contained in the user’s 
PROTOTYPE directory. 

Operations: 

DIRECTORY -> constructor for building a directory scanner. 

read_directory -> Given a root operator, scans the user subdirectory for prototype 
component matches. Builds a list of all prototype components. Stores the 
potential component matches in a linked list of operator nodes. 

updatetimestamp -> evaluates whether component files in the user work area are 
newer than the versioned component stored in the ONTOS database. This 
information is used by the TREENODE class when determining whether to create 
a new version of the component. 

find_treenode -> scans the linked list of operator nodes to build the multilevel k- 
ary tree of TREENODES. Both operator nodes and TREENODES use the same 
class structure, except that the operator nodes have no children (subtree) 


references. 
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getOperatorList -> required to build the multilevel k-ary tree. Returns the operator 


list defined by evaluating the users work area with the read_directory operation. 


Class QUEUE 

QUEUE contains the basic non-persistent queue data structure required to 
construct the multi-level k-ary hierarchy. 

Behavior: 

Implements basic queue functions. 

Set of Attributes: 

None. 

Operations: 

put -> append an operator TREENODE on the queue. 

get -> get an operator TREENODE from the queue. 


empty -> test the queue for empty status. 


Class slist, slink, slist_iterator, slink_iterator 

These classes are non persistent abstract classes providing the generic capabilities 
of a singly linked list. 

Behavior : 

these classes contain the basic data structures required for queues and linked lists. 
Set of Attributes: 

€ -> treenode pointer. 

next -> link pointer. 

ce, last -> slink pointer. 

CS -> Slist pointer. 

Operations: 

slist, slink, slist_iterator, slink_iterator -> constructors. 


insert -> add TREENODE at head of list. 


append -> add TREENODE at tail of list. 
get -> retum TREENODE. 
clear -> remove all links. 


empty -> test for empty list. 


Class TREE 

A non-persistent class designed to build a multi-way tree of operator/types 
developed by the end user in the $PROTOTYPE directory. 

Behavior: 

The TREE class will establish the root operator and build the tree. 

Set of Attributes: 

tree_name -> assumes the name of the prototype root versioned component. 

the TreeRootNode -> TREENODE (root of multi-level k-ary tree). 

Operations: 

TREE -> constructor for building the root TREENODE. 

build_tree -> builds the multi-level tree. 

find_treenode -> returns a TREENODE from the input list of Operator nodes 

returned from DIRECTORY. 


Class TREENODE 

The most important non-persistent class designed to build a multi-way tree of 
operator/types developed by the end user in the $PROTOTYPE directory. 

Behavior : 

The TREENODE class is used to establish the operator node list, to convert the 
operator node list to a multi-level tree, and to compare each node in the multi-level tree to 
versioned components in the database. Component versioning occurs where the 
TREENODES have newer timestamps than the lockTime on the versioned components. 


Set of Attributes: 
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tree_node_name -> explicit name of node (from root node to level in subtree). 
Taken in its entirety, the tree_node_name contains the sequence of ancestor 
names from the entire prototype name to the given sub-component’s node_name. 
node_name -> unique name of operator/type without level/ancestor information. 
timestamp -> contains the operator/types most recent system time. Each tool 
updates the file when it creates or updates its product files. 

level -> root operator equals 1. Other nodes reflect the level where they reside. 
ChildrenList -> linked list of TREENODE descendants of this instance. 
ParentNode -> parent TREENODE of this instance. 

Operations: 

TREENODE -> constructor which reads directory and builds operator list. 
updatetimestamp -> reads the directory again for the newest of potential files for 
each operator/type developed by CAPS tools. Stores the result in timestamp. 
getname -> returns the TREENODE name. 

insertChildNode -> inserts a TREENODE into the ChildrenList. 

getChildren -> returns the linked list of Children TREENODES. 

getParentNode -> returns the Parent TREENODE of this instance. 

get_asc_time -> returns the 26 character ASCII time from the standard C function 
ctume. 

getlevel -> return the level of this TREENODE. root is level 1, successive levels 
increment by 1. 

get_long_time -> return the timestamp. 

list_subtree -> lists each TREENODE from the root to each leaf node. 
checkin_subtree -> initiates the recursion for comparing the tree of TREENODEs 
to the hierarchical structure in the ONTOS database. 

checkin_node -> does the bulk of the loading into the ONTOS database. Creates 


new threads and versioned components when the TREENODE timestamp is more 
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current than the versioned component’s lockTime or where no thread with that 


operator name exists (new operator). 


C. TESTING AND EVALUATION 


The method used for checking the functionality of the DDB required an exhaustive 
check of many possible variations of the functions documented in Appendix B. To 
demonstrate that each of the commands produce the desired output, a unix shell script was 
generated which tested all of the functions. The complete version of this shell script test is 
contained in Appendix C. 

The output from this sequence of commands, also contained in Appendix C, shows 
that the testing phase answered two very important questions affirmatively - that this tool 
could successfully store and retrieve versioned components of prototypes as dictated by the 
design criteria; and that the software engineering design database could be developed as a 
stand-alone tool which interacted with other tools through the tool interface. 

The results of some commands can not be verified by running that command alone. It 
is only by running several commands in a series that the effect of one command changing 
the state of the database can be verified. Consequently, these types of tests were included 


in the testing phase. 


D. MAINTENANCE NOTES 

All code generated by the authors in support of this implementation effort is contained 
in Appendix D. 

This code was developed using version 2.0 of the Glockenspiel C++ compiler and the 
beta version 2.01 of the ONTOS object-oriented Database Management System. ONTOS 
tools included packages containing extensive capabilities for debugging in the form of the 
ONTOS graphical database browser (DBrowser). 

Special ONTOS header files and the makefiles used during compilation are contained 
in Appendix E. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


A. SUMMARY 


The goal of this thesis research was to design and develop an engineering database 
which could store, version, and retrieve software prototype components. This database 
provides concurrent users the command functions to insert prototypes, store and manage 
configurations, and insert and retrieve components throughout the software engineering life 
cycle. 

The prototype functions allow the designer to store and retrieve management 
information concerning any of several potential prototype designs. 

The configuration functions allow the designer to more easily navigate the various 
versions Of a software prototype. It provides him a “hook” for navigating the hierarchy 
from any specified component. With additional features such as grouping by configuration 
and logging, configurations provide powerful features and a sound design for the 
development of evolution management into the engineering database model. 

The versioned component functions give the designer the flexibility to checkout for 
modification or viewing specific prototype components; to expand, modify, and 
decompose these components with other tools in the CAPS system; and to check selected 


portions of those components back into the database at any time[Ref. 19]. 
B. RECOMMENDATIONS FOR FUTURE WORK 


1. Variations 


Variations will allow users to check out older versions of components and/or groups 
of components and evolve them to newer versions. When the updates are completed 
components will version correctly - splitting, updating, and rejoining threads where 
appropriate. Work must be done on other tools in the CAPS system to make them accept as 


input and produce as output components which contain version information. This will 
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provide the DDB with the necessary information for re-attaching components to the 


hierarchical structure at the correct location. 


2. Security 


This implementation of the engineering database does not address the issue of 
security other than the concurrency control mechanisms. This thesis makes no effort to 
distinguish between different levels of access or authorization for access to objects and 


their attributes. This is a subject that requires additional research and development. 


3. Evolution Management 


This program must be enhanced to incorporate the “uses” and “derives” 
properties [Ref. 11]. The database will then be capable of automatically flagging the effects 
that changing one component has on other components in the prototype. As components 
are checked out of the database they must take information with them pertaining to the 
version checked out. This is required to reattach components to the multi-way tree upon 
update. These and other evolution attributes will become an important ingredient for 


providing a fully functional engineering database. 
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APPENDIX A 
ENVIRONMENTAL MODEL 


A. STATEMENT OF PURPOSE 


The Purpose of the design database is to provide the designer a method of storing 
and retrieving components generated by the various tools of the COMPUTER AIDED 
PROTOTYPING SYSTEM (CAPS). This tool shall be flexible enough to expand as other 
tools are developed. It shall be capable of maintaining older versions of components as new 
components are developed. It shall allow the user to version new and/or older components 


with the common interface considerations. 
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B. EVENT LIST 
List prototypes 
List current version of prototype 
Select current version of prototype 
Check out current version of prototype’s components for viewing/update 
Add new version of prototype’s components 
List previous versions of prototype 
Select previous version of prototype 
Check out previous version of prototype’s components for viewing/update 
List selected prototype attributes (creation date, leader, etc) 
Update selected prototype attributes (leader, description, etc) 
List composite components (operators/types) 
List atomic components (operators/types) 
List selected versioned component attributes (date created, description, etc.) 
Update selected versioned component attributes (date created, description, etc.) 
List configurations 
List current default version of configuration in prototype 
Select current default version of configuration in prototype 
Check out current version of configuration for update 


Add new version of configuration’s components 


5] 


C. CONTEXT DIAGRAM 
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CAPS Interface Data Flow Diagram (partial/modified) [Ref. 3:p. 19] 
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APPENDIX B 
COMMAND INTERFACE 


A. PROTOTYPE COMMANDS 
Table 1: PROTOTYPE COMMANDS 


PIP | Insert Prototype Confirmation ddb <db> pip <p>? 
[leader] [description]* 
PLN Names (1 per line) ddb <db> pin 


PLL | Long List Name/Default Config/ | ddb <db> pll 
Default VOBJECT 


PDS | Dump Summary Date Created ddb <db> pds <p> 
Leader 


Default Config 
Description 


Update Commands: 





PUL | Update Leader Confirmation ddb <db>pul <p> “new 


leader” 


PUD | Update Description Confirmation ddb <db>pud <p> file 
a. <angle brackets> reflect required parameters. [square brackets] denote optional parameters. 
b. <db> db=any Ontos Database name. <p> p=any prototype name 
c. Passed in as a file-name or string 


B. CONFIGURATION COMMANDS 
Table 2; CONFIGURATION COMMANDS 


ag 
CIC | Insert Configuration Confirmation ddb <db>cic <p> 
<c>>[manager] 
[description]© 





CLN Names (1 per line) | ddb <db> cln <p> <c> 
CLV | List Default VOBJECT ddb <db> clv <p> <c> 


CLO | List Operators Operator Name4/ ddb <db> clo <p> <c> 
Version 
CLL | Long List Default VOB- Node* Name/Ver- | ddb <db> cll <p> <c> 
JECT’s Children sion 


Retrieval Commands: 


CDS | Dump Summary 


Date Created ddb <db>cds <p> <c> 
Date Changed 
Manager 


Default VOBJECT/ 
Version 
Description 


CDA | Get Date Created ddb <db> cda <p> <c> 
CGM | Get Manager ddb <db> cgm <p> <c> 
CGD | Get Description ddb <db> cgd <p> <c> 
CGL ViewLog! ddb <db> cgl <p> <c> 


Update Commands: 


CUN | Update Name ddb <db> cun <p> <c> 


new_name 


CUM | Update Manager Confirmation ddb <db>cum <p> <c> 
| new_name 
CUD | Update Description ddb <db> cud <p> <c> 
file 
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Table 2: CONFIGURATION COMMANDS 
CPL | Post Log Confirmation ddb <db> cpl <p> <c> 
file 
CRL | Release Lock Confirmation ddb <db> crl <p> <c> 
[version] 
CAA | Update VOBJECT’s sub- Confirmation ddb <db> caa <p> <c> 
tree 
CAO | Attach VOBJECT to CON- | Confirmation ddb <db> cao <p> <c> 
FIGURATION <vobject> [version] 


ems: | 


CDT | Dump VOBJECT subtree | file(s) ddb <db> cdt <p> <c> 
R/W2® [version] 
a. <angle brackets> reflect required parameters. [Square brackets] denote optional parameters. 


b. <db> db=any Ontos Database name. <p> p=any prototype name <c> c = any configuration 
name 


c. Passed in as a file-name or string 

d. Operator name containing explicit path information for determining location (level) in heirar- 
chical data structure 

e. Node name containing no reference to location (level) in heirarchical data structure 

f. Log may be viewed only. Log can not be updated. Additional log entries are posted to the bot- 
tom of the current log. 


g. R/W dump file for Read-Only (R) or Write (W). Tool interface must supply either R or W to 
build files. 
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C. VERSIONED COMPONENT COMMANDS 


Table 3: VERSIONED COMPONENT COMMANDS 


VAA | Add VOBJECT & Sub- | Confirmation ddb <db>vaa <p> <v>° 
tree 

VLO | List Operators VOBJECT Name‘/ ddb <db> vlo <p> <v> 

Version [version] 

VLL | Long List VOBJECT’s | VOBJECT Name4/ | ddb <db> vil <p> <v> 
Children Version [version] 

VLP | Long List VOBJECT’s | VOBJECT Name/Ver- | ddb <db> vip <p> <v> 
Parent & Siblings sion [version] 


VDS_ | Dump Summary Date Created ddb <db> vds <p> <v> 
Creator [version] 
Worker (or NONE) 
Lock Time (or 
NONE) 
Description 


VDD | Get Date Created Date Created ddb <db> vdd <p> <v> 
[version] 

VGL | Get Lock Time Date/Time Locked ddb <db> vgl <p> <v> 
[version] 

VGV | Get Versions Version Number ddb <db> vgv <p> <v> 

(1 per line) 

VGD | Get Description Description ddb <db> vgd <p> <v> 

[version] 


Cpe Commands | 


Update Description Confirmation® ddb <db> vgd <p> <v> 
file! 
[version] 





VUD 
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Table 3: VERSIONED COMPONENT COMMANDS 
VAA | Add VOBJECT and Confirmation ddb <db> vaa <p> <v> 
subtree [version] 
VRO | Release Lock Operator | Confirmation ddb <db>vro <p> <v> 
[version] 
VRS | Release Lock Operator | Confirmation ddb <db> vrs <p> <v> 
and Subtree [version] 


VGP_ | Get Postscript file ddb <db>vgp <p> <v> 
R/w® 
[version] 

VGG | Get Graphics file ddb <db>vgg <p> <v> 
R/W 
[version] 





VGI_ | Get Implementation ddb <db>vgi <p> <v> 
R/W 
[version] 


VGC | Get Specification ddb <db>vgc <p> <v> 
R/W 


[version] 


hile 
VGS_ | Get Source file ddb <db>vgs <p> <v> 
R/W 
[version] 
VDF | Dump Operator file ddb <db>vdf <p> <v> 
[version] 
Dump Operator and file(s) ddb <db> vdt <p> <v> 
Subtree R/W 
[version] 


Atomic" 
a. <angle brackets> reflect required parameters. [Square brackets] denote optional parameters. 
b. <db> db=any Ontos Database name. <p> p=any prototype name <c> v=any vobject name 
c. Operator name containing explicit path information for determining location (level) in heirar- 
chical data structure 


d. Node name containing no reference to location (level) in heirarchical data structure 
e. Only Creator may update description 





R/W 








f. file containing description 

g. R/W dump file for Read-Only (R) or Write (W). Tool interface must supply either R or W to 
build files 

h. Atomic is considered collection containing .ps .graph .imp.psdl .spec.psdl and .a file(s) 


58 


APPENDIX C 
TESTING AND EVALUATION 


A. NOTES ON TESTING AND EVALUATION 


For functions which return no visible output, the successful completion is marked by 
the standard output of: 

CAPS Engineering Design Database 1991(c) WP.D.A.L.G 

Three Prototypes are inserted into the Engineering Database. These include one 
Command and Control Application (c3i) and two classroom applications (FishFarm and 
Robot). The purpose for inserting three applications is to test working with several 
prototypes. After demonstrating these functions, the remaining functions are run against the 
more comprehensive prototype created by the CAPS system called c3i. This prototype was 


selected due to it’s ability to fully exercise the “graph walking” capabilities of the model. 


B. TEST SCRIPT 


#!/usr/local/bin/tcsh 

a 66 ie oie 2h he he he 2 2 i oo i 2 oi oi 2 2 2 2 2 ic ic ic ic 2 2 2 ic ic af oie oc oc 9 ic ic ic 9 9 9 9 2 ic 2c oo oo oi 2k 2k ok oe oe oe ic ake ak ai oe 2 2 oie oie oie ak ok ic 2? 
echo“*NAVALPOSTGRADUATESCHOOL*” 

echo “ * Software Engineering *” 

echo “ * Design Database *” 

echo “ * Thesis Advisor Dr. Luqi 

echo “ * Written by: Drew Dwyer and Garry Lewis *” 

echo “ * Design Database v1.1 WP.D.A.L.G . *” 

echo 66 te i 2 2h 2h 2 2 2 i i i i 2k 2k oo i oo i 2k 2k 2k oo a ic 2k ae 2 oc oi ai a 2c oie oe 2c ai a oi 2c oe 2c oc ai oi a akc oie ac a oe oi ok ai ae ok oie ok oie oie 2 2c 2c ie 2k 2k ok oc 9? 
echo “ “ 

echo 
echo -n “Press Return to begin demonstration “ 
set a=($<) 

clear 


66 66 


echo “Running main ddb53 pip c33 ...” 
echo a6 66 
main ddb53 pip c3i 
echo “Running main ddbS3 pip fishfarm ‘Drew Dwyer’ ...” 
echo 66 66 
main ddb53 pip fishfarm “Drew Dwyer” 
echo “Running main ddb53 pip robot ‘Garry W. Lewis’ file] ...” 
echo 46 66 
main ddbS3 pip robot “Garry W. Lewis” filel 


66 66 


echo 


ey 


echo -n “INSERT PROTOTYPE test complete ... Press Return to continue “ 
set a=($<) 

echo ec 6 

clear 


echo “Running main ddb53 pgd robot ...returns description to screen...” 
echo a¢ 6¢ 

main ddb53 pgd robot 

echo “Running main ddb53 pud robot file2 ...updates description ...” 
echo ee 66 

main ddb53 pud robot file2 

echo “Running main ddb53 pgd robot ...returns the new description.” 
echo ee ¢ 

main ddb53 pgd robot 

echo ee ¢¢ 

echo -n “GET/UPDATE PROTOTYPE DESCRIPTION test complete ... Press Return to continue “ 
set a=($<) 

clear 


echo “Running main ddb53 prd c3i “ 

echo ae 6¢ 

main ddb53 prd c3i 

echo 46 6¢ 

echo -n “RETRIEVE PROTOTYPE DATE test complete ... Press Return to continue “ 
set a=($<) 

clear 


echo “Running main ddb53 pul robot Larry Williamson ...” 
main ddb53 pul robot “Larry Williamson” 
echo ae 66 


echo 
echo “Running main ddbS3 pgl robot” 

main ddb53 pgl robot 

echo ee 6¢ 

echo -n “UPDATE/GET PROTOTYPE test complete ... Press Return to continue “ 
set a=($<) 

clear 


echo “Running main ddbS3 pds c3i ....” 
echo “ “ 

main ddb53 pds c3i 

echo -n “Press Return to continue “‘ 

set a=($<) 

clear 


echo “Running main ddbS3 pds fishfarm ...” 
echo ¢ ¢¢ 

main ddb53 pds fishfarm 

echo -n “Press Return to continue “ 

set a=($<) 

clear 


echo “Running main ddb53 pds robot ...” 
echo ae 66 


main ddb53 pds robot 


6é 66 


echo 
echo -n “DUMP PROTOTYPE SUMMARY test complete ... Press Return to continue “ 
set a=($<) 

clear 
echo “ “ 

echo “Running main ddbS3 pln...” 

echo “* “ 

main ddb53 pln 

echo ae €¢ 

echo -n “LIST PROTOTYPE NAMES test complete ... Press Return to continue “ 
set a=($<) 

clear 


echo “Running main ddbS3 cic c3i unix ...” 

echo ae 66 

main ddbS53 cic c31 unix 

echo “ “ 

echo “Running main ddb53 cic c3i dos ‘Drew Dwyer’ ...” 

main ddb53 cic c3i dos “Drew Dwyer” 

echo ae 06 

echo “Running main ddbS53 cic c3i sparc ‘Garry Lewis’ filel ...” 
main ddb53 cic c3i sparc “Garry Lewis” filel 

echo -n “INSERT CONFIGURATION test complete... Press Return to continue “ 
set a=($<) 

clear 


echo “Running main ddb53 cum c3i dos ‘Marty Shoppenheimer’ ...” 

main ddb53 cum c3i dos “Marty Shoppenheimer” 

echo ae 66 

echo -n “UPDATE CONFIGURATION MANAGER test complete... Press Return to continue “ 
set a=($<) 

clear 


echo “Running main ddbS3 cds c3i unix ...” 
main ddb§3 cds c3i unix 

echo -n “Press Return to continue “ 

set a=($<) 

clear 


echo “Running main ddbS3 cds c3i dos ...” 
main ddb53 cds c3i dos 

echo -n “Press Return to continue “ 

set a=($<) 

clear 


echo “Running main ddbS3 cds c3i sparc ...” 

main ddbS3 cds c3i sparc 

echo -n “DUMP CONFIGURATION SUMMARY test complete... Press Return to continue “ 
a=($<) 

clear 


echo “Running main ddbS3 cgd c3i sparc ...” 


echo ae 66 
main ddbS3 cgd c3i sparc 
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echo -n “Press Return to continue “ 
set a=($<) 
clear 


echo “Running main ddb53 cud c3i sparc file2 ...” 
echo 6¢ 6¢ 

main ddb53 cud c31 sparc file2 

echo -n “Press Return to continue “ 

set a=($<) 

clear 


echo “Running main ddb53 cgd c3i sparc ...” 

main ddb53 cgd c31 sparc 

echo -n “CONFIGURATION DUMP SUMMARY test complete... Press Return to continue “ 
set a=($<) 

clear 


echo “Running main ddbS3 cda c3i sparc ...” 

echo ae 6¢ 

main ddbS3 cda c3i sparc 

echo ae 6¢ 

echo -n “GET CONFIGURATION DATE test complete... Press Return to continue” 
set a=($<) 

clear 


echo “Running main ddb53 cpl c3i sparc “This is the first Post to Sparc Log’ “ 
echo ae 6¢ 
main ddb53 cpl c3i sparc “This is the first Post to Sparc Log” 


echo “Now check it to see that it’s posted...” 
echo “* “ 

echo “Running ddb53 cgl c3i sparc ...” 
echo 6¢ 6¢ 

main ddb53 cgl c3i sparc 

echo -n “Press Return to continue “ 
set a=($<) 

clear 


echo “Add another line to the log ...” 
ee “Running main ddbS3 cpl c3i sparc ‘This is the second Post to Sparc Log’ “ 
ec O a6 66 


main ddb53 cpl c31 sparc “This is the second Post to Sparc Log” 
echo €é 6¢ 


echo “‘Show the results ...” 
echo “Running ddbS3 cgl c3i sparc ...” 
echo 66 66 


main ddb53 cgl c3i sparc 

echo 6h CE 

echo -n “POST/GET CONFIGURATION LOG test complete... Press Return to continue” 
set a=($<) 

clear 


echo oe 66 
echo “Running main ddb53 cgm c3i dos ...” 
main ddb53 cgm c3i dos 
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echo “Now we’ll change the manager to “Kelly Mcdowell’ “ 
echo ac 66 
echo 
echo “Running main ddbS3 cum c3i dos ‘Kelly Mcdowell’ ...” 
main ddb53 cum c3i dos “Kelly Mcdowell” 


66 66 


echo 
echo “Now make sure it posted...” 

echo “Running main ddb53 cgm c3i dos...” 

main ddb53 cgm c3i dos 

echo ac Ge 

echo -n “GET/UPDATE CONFIGURATION MANAGER test complete... Press Return to continue” 
~ a=($<) 

clear 


echo “Running main ddbS3 cln c3i ...” 

main ddbS53 cin c3i 

ec 66 66 

echo -n “LIST CONFIGURATION NAMES test complete... Press Return to continue” 
set a=($<) 

clear 


echo “We now move on to the actual loading of the ONTOS Database. “ 
echo oe Ge 

echo “Running main ddbS3 vaa c31 ¢31...” 

main ddb53 vaa c3i c3i 

echo “ “ 

echo “Add c3i test complete... Now we’ll add a different Prototype “ 
echo -n “called fishfarm. Press Return to continue...” 

set a=($<) 

clear 


setenv PROTOTYPE /n/gemini/work/dwyer/SCCS/fish 
echo “Running main ddb53 vaa fishfarm fishfarm ...” 
main ddbS3 vaa fishfarm fishfarm 

echo ae G¢ 

echo “Add fishfarm test complete... Now we’ll add a different Prototype “ 
echo -n “called robot. Press Return to continue...” 

set a=($<) 

clear 


setenv PROTOTYPE /n/gemini/work/dwyer/SCCS/robot 
echo “Running main ddb53 vaa robot robot ...” 

main ddbS3 vaa robot robot 

echo “Add robot test complete ... Press return to continue” 
set a=($<) 

clear 


setenv PROTOTYPE /n/gemini/work/dwyer/caps/proto 

echo ee 66 

echo “Now show the PLL command to reflect that each Prototype has a default version” 
echo GG 66 

echo “Running ddbS3 pl ...” 

main ddbS53 pill 

echo -n “LOAD V_OBJECT and SUBTREE test complete... Press Return to conunue” 
set a=($<) 

clear 
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echo “Running main ddb53 vio c3i c3i ...” 
echo ce Ge 

main ddb53 vio c31 c31 

echo 

echo -n “Press retum to continue ...” 

set a=($<) 

clear 


echo “Running main ddbS53 vil c3ic3i ...” 
echo €¢ 66 

main ddb53 vil c3i c3i 

echo -n “Press Return to continue ...” 

set a=($<) 

clear 


echo “Running main ddb53 vlo c3i c3i.comms_interface ...” 
echo a¢ G6 

main ddb53 vlo c3i c3i.comms_interface 

echo -n “Press Return to continue ...” 

set a=($<) 

clear 


echo “Running main ddbS53 vil c3i c3i.comms_interface ...” 
echo €é €¢é 


main ddb53 vil c3i c3i.comms_interface 

echo €¢ Gé 

echo -n “V_OBJECT LIST/LONG LIST OPERATORS test complete... Press Return to continue” 
set a=($<) 

clear 


echo “Running main ddb53 vlo c3i c3i.comms_interface.resolve_outgoing_messages ...” 
echo e¢ a6 

main ddbS3 vlo c31 c3i.comms_interface.resol ve_outgoing_messages 

echo -n “Press Return to continue ...” 

set a=($<) 

clear 


echo “Running main ddbS$3 vil c3i c3i.comms_interface.resolve_outgoing_messages ...” 

echo aé¢ G6 

main ddbS3 vil c3i c3i.comms_interface.resolve_outgoing_messages 

echo qe Gé 

echo -n “V_OBJECT LIST/LONG LIST OPERATORS test complete... Press Return to continue” 
set a=($<) 

clear 


echo “Running main ddb53 CAO c3i unix c3i ...” 

echo ee 66 

main ddb53 cao c3i unix c3i 

echo ae 66 

—e “Running main ddb53 cao c3i dos c3i.user_interface “ 

ec O ee Ge 

main ddb53 cao c3i dos c3i.user_interface 

echo “Running main ddb53 cao c3i sparc c3i.comms_interface.resolve_outgoing_messages” 
echo ae Gé 

main ddbS3 cao c3i sparc c3i.comms_interface.resolve_outgoing_messages 

echo ae ce 

echo -n “ATTACH OPERATORS to a CONFIGURATION test complete... Press Return to continue” 
set a=($<) 

clear 


echo “Running main ddbS53 clo c3i unix ...” 
main ddb53 clo c3i unix 

echo 66 66 

echo -n “Press Return to continue” 

set a=($<) 

clear 


echo “Running main ddbS53 clo c3i dos ...” 
echo 

main ddb§3 clo c3i dos 

echo a6 €6 

echo -n “Press Return to continue” 

set a=($<) 

clear 


echo “Running main ddb53 clo c3i sparc ...” 

main ddb53 clo c3i sparc 

echo 66 66 

echo -n “CONFIGURATION LIST OPERATOR test complete... Press Return to continue” 
set a=($<) 

clear 


echo “Running main ddb53 cll c3i unix ...” 
echo €¢ 66 

main ddb53 cll c3i unix 

echo GE 66 

echo -n “Press Return to continue” 

set a=($<) 

clear 


echo “Running main ddbS53 cll c3i dos ...” 
echo ée 66 

main ddb53 cll c3i dos 

echo 66 66 

echo -n “Press Return to continue” 

set a=($<) 

clear 


echo “Running main ddbS3 cll ¢3i sparc ...” 

main ddbS3 cll c3i sparc 

echo &6 66 

echo -n “CONFIGURATION LONG LIST OPERATORS test complete... Press Return to continue” 
<n a=($<) 

clear 


echo “Running main ddbS3 cdt c3i unix r...” 

ee /n/gemini/work/dwyer/caps/proto/* 

ec O 66 66 

main ddb53 cdt c3i unix r 

echo 66 66 

echo -n “Examine the directory now and you’ll see the checked out subtree ...” 
set a=($<) 

clear 


65 


echo “Running main ddbS3 cdt c3i unix w ...Dumping Tree” 

wae /n/gemini/work/dwyer/caps/proto/* 

ec O 66 66 

main ddbS3 cdt c3i unix w 

echo 46 66 

echo -n “Examine the directory now and you’ll see the checked out subtree ...” 
set a=($<) 

clear 


echo “Running main ddb53 cri c3i unix ...Resetting Locks” 

main ddb53 cri c3i unix 

echo “Running main ddbS3 cdt c3i dos r ... Dumping Tree” 

rm -f /n/gemini/work/dwyer/caps/proto/* 

echo a6 66 

main ddbS3 cdt c3i dos r 

echo 66 66 

echo -n “Examine the directory now and you'll see the checked out subtree ...” 
set a=($<) 

clear 


echo “Running main ddb53 cdt c3i sparc w ... Dumping Tree” 

rm -f /n/gemini/work/dwyer/caps/proto/* 

echo 46 66 

main ddb53 cdt c3i sparc w 

echo Ge 66 

echo 66 66 

echo “Examine the directory now and you’ll see the checked out subtree ...” 
echo -n “Press return to continue “ 

set a=($<) 

clear 


FEE EHH ETH HH AEE A EE EP A 
# 

#VERSIONING STARTS HERE ... 

# 

HEHE H SEER HEE HAH HES HH HH PH A A 


echo “Running main ddbS3 cri c3i unix ...Resetting Locks” 

main ddbS3 crl c3i sparc 

echo “Running main ddb53 cdt c3i unix w ... Dumping Tree for UPDATE” 
rm -f /n/gemini/work/dwyer/caps/proto/* 

main ddb53 cdt c3i unix w 

echo Ge 66 

echo 
echo €é 66 

echo -n “CONFIGURATION DUMP TREE test complete ... Press Return to continue” 
set a=($<) 

clear 


Ge 66 


echo “Simulating updates by TOUCHING files “ 
echo 66 86 

echo “ Running touch c3i.ps ...” 

touch /n/gemini/work/dwyer/caps/proto/c3i.ps 

echo 6c 66 

echo “ Running touch c3i.user_interface.imp.psdl ...” 
echo a¢ 66 


touch /n/gemini/work/dwyer/caps/proto/c3i.user_interface.imp.psdl 


66 


4e 6¢ 


echo 
echo “* Running touch c3i.user_interface.message_arrival_panel.spec.psdl ...” 

touch /n/gemini/work/dwyer/caps/proto/c3i.user_interface.message_arrival_panel.spec.psdl 
echo 6e 66 

echo “ Running touch c31.user_interface_emergency_status_screen.imp.psd ...” 

touch /n/gemini/work/dwyer/caps/proto/c31.user_interface.emergency_status_screen.imp.psdl 
echo 66 66 

echo 
echo 
echo “We have just simulated editing several operators....” 
echo -n “Press Return to continue” 

set a=($<) 

clear 


66 66 


66 66 


echo “Running a CONFIGURATION update now (Posting version #2 of c3i) ...” 
echo 66 66 

echo “Running main ddb53 caa c3i unix ...” 

echo a6 66 

main ddb53 caa c31 unix 

echo 66 66 

echo 
echo 
rm -f fn/gemini/work/dwyer/caps/proto/* 

echo -n “CONFIGURATION UPDATE TREE test complete ... Press Return to continue” 
set a=($<) 

Clear 


oe 66 


66 66 


aé 66 


echo 
echo 
echo 64 66 

echo “Show the versions of the root vobject ...” 
echo “Running ddbS53 vgv c31 31...” 

echo 66 6¢ 

main ddb53 vgv c3ic3i 

echo 66 66 

echo 
echo “Show the versions of the user_interface vobject ...” 

echo 66 66 

echo “Running ddbS3 vgv c3i c31.user_interface ...” 

echo 66 66 

main ddb53 vgv c3i c3i.user_interface 

echo 66 66 

echo “‘Show the versions of the emergency_status_screen vobject ...” 

echo a6 66 

echo “Running ddbS53 vgv c3i c3i.user_interface.emergency_Status_screen ...” 
echo 4é 66 

main ddbS3 vgv c3i c31.user_interface.emergency_status_screen 

echo 46 Ge 


ae 66 


66 6¢ 


66 66 


ec 
echo “Show the version of an OPERATOR which DID NOT version ...” 


echo €¢ 66 
echo “Running ddb53 vgv c3ic3i.comms_interface ...” 
echo €¢ 6¢ 


main ddb53 vgv c3i c3i.comms_uinterface 
echo -n “Press Return to continue” 

set a=($<) 

clear 
echo ae 6¢ 
echo 
echo “Running main ddbS3 vdt c3i c31 w “ 


66 66 


67 


ae 66 


echo 
main ddb53 vdt c3i c3i w 


echo “Now updating modules ...” 
echo 66 66 

echo “ Running touch c3i.ps ...” 

touch /n/gemini/work/dwyer/caps/proto/c3i.ps 

echo a6 G6 

echo “ Running touch c3i.user_interface.imp.psd ...” 

echo ae 6¢ 

touch /n/gemini/work/dwyer/caps/proto/c3i.user_interface.imp.psdl 

echo 6¢ 66 

echo “ Running touch c3i.user_interface.message_arrival_panel.spec.psdl ...” 

touch /n/gemini/work/dwyer/caps/proto/c31.user_interface.message_arrival_panel.spec.psdl 
echo 46 6¢ 

echo “ Running touch c3i.user_interface_emergency_status_screen.imp.psdl ...” 

touch /n/gemini/work/dwyer/caps/proto/c3i.user_interface.emergency_status_screen.imp.psdl 
echo 6¢ G6 

echo 
echo 
echo “We have just simulated editing several operators....” 
echo 4c 46 

echo 
echo “Now Posting Version 3 to the database ...” 
echo ae 66 

echo ae 46 

echo “Running main ddb53 vaa c3i c3i “ 

echo oe 66 

main ddb53 vaa c3i c3i 

echo -n “Press Return to continue “ 

rm -f /n/gemini/work/dwyer/caps/proto/* 

set a=($<) 

clear 


46 66 


66 66 


4¢ 66 


echo a@ 6 

echo a¢ 6¢ 

echo “Now check the versions of c3i in the database “ 
echo qc 46 

echo 
echo “Running main ddb53 vgv c3i c3i ...” 

echo ae O¢ 

main ddb53 vgv c3i c3i 

echo 6¢ 66 

echo q¢ @¢ 

echo “Show the versions of the user_interface vobject ...” 

echo ee OC 

echo “Running ddb53 vgv c3i c3i.user_interface ...” 

echo 66 66 

main ddb53 vgv c3i c3i.user_interface 

echo q¢ 46 

a “Show the versions of the emergency_status_screen vobject ...” 

ec O ae 66 

echo “Running ddb53 vgv c3i c3i.user_interface.emergency_Status_screen ...” 
echo 66 46 

main ddb53 vgv c3i c3i.user_interface.emergency_status_screen 

echo 66 66 

echo a@ 46 

echo “Show the version of an OPERATOR which DID NOT version ...” 

echo 66 66 

echo “Running ddb53 vgv c3i c3i.comms_interface ...” 


a6 4¢ 
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echo €¢ 66 

main ddb53 vgv c3i c3i.comms_interface 

echo -n “Show Versions (VGV) test complete ...Press Return to continue” 
set a=($<) 

clear 


echo “Running main ddb53 vud c3i c3i.user_interface file3 ...” 
echo et €¢ 


main ddb53 vud c3i c3i.user_interface file3 
echo G¢ 66 

echo 
“ae “Here is the description entered to that operator ...” 
ec O €¢ 66 

echo “Running main ddb53 vgd c3i c31.user_interface ...” 
echo 66 66 

main ddb53 vgd c3i c3i.user_interface 

echo 66 66 

echo 
echo -n “Press Return to continue ...” 
set a=($<) 

clear 


66 66 


echo “‘Now let’s update an OLDER version of an operator previously stored ...” 
echo “Running main ddb53 vud c31 c3i.user_interface file4 1 ...” 

echo ac €¢é 

main ddb53 vud c3i c3i.user_interface file4 1 

echo a 66 

echo 
echo “Here is the description entered to that operator ...” 
echo €¢ 66 

echo “Running main ddbS3 vgd c3i c3i.user_interface 1 ...” 
echo 66 6¢ 

main ddb53 vgd c3i c3i.user_interface 1 

echo ce €¢ 

echo 
echo -n “UPDATE VOBJECT/OPERATOR (VUD) test complete... Press Return to continue ...” 
set a=($<) 

clear 
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echo “Now attach the configurations to different versions of ROOT VOBJECT ...” 
echo “Running main ddb53 cao c3i unix c3i 1 “ 
echo 66 66 

main ddb53 cao c3i unix c3i 1 

echo “Running main ddb53 cao c3i dos c31 2 “ 
echo 66 66 

main ddbS3 cao c3i dos c3i 2 

echo “Running main ddbS3 cao c3i sparc c31 3 “* 
echo ce 66 

main ddb53 cao c3i sparc c3i 3 

echo -n “Press Return to continue “ 

set a=($<) 

clear 


echo “One Last list to verify everythings in order ...” 
echo 66 66 

echo “Press Return to continue ...” 

set a=($<) 

Clear 


echo “Running main ddbS53 clo c3i unix” 
echo ee 66 
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main ddb53 clo c3i unix 

echo -n “Press Return to continue ...” 
set a=($<) 

clear 


echo “Running main ddbS53 clo c3i dos” 
echo 4é €¢ 

main ddb53 clo c3i dos 

echo -n “Press Return to continue ...” 


set a=($<) 
clear 


eg “Running main ddbS3 clo c3i sparc” 
ec O 66 66 

main ddb53 clo c3i sparc 

echo -n “Press Return to continue ...” 

set a=($<) 

Clear 
echo 
echo 
CCH “© FERRE EKEKAKREKE KE REKAKAKKAAKKA KK AKA AKKEARKAKAAK KAKA REA RAKAALKEREE ARRAS 
echoo“*NAVALPOSTGRADUATESCHOOL*” 

echo “* (THEEND) *” 

echo “ * Software Engineering *” 

echo “ * Design Database *” 

echo “ * Thesis Advisor Dr. Luqi 

echo “ * By Drew Dwyer and Garry Lewis 

echo “ * Design Database v1.1 WP.D.A.L.G *” 


ECHO *° F*FEEEEREEKEEKEKEKEEE RAKE EEKKEEAKAKKEKEEKKAAKKAA KEKE LAA KKKNA KEE ES SS 


66 66 


66 66 
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TEST RESULTS 


Me Me He Me He He He He He HH Me He He eM He He He He He eH HH ee OFFIC FOF CC FF FHC IC tC tC a at CC CC aC ac 


echo“*NAVALPOSTGRADUATESCHOOL*” 
echo “ * Software Engineering *” 

echo “ * Design Database *” 

echo “ * Thesis Advisor Dr. Luqi 

echo “ * Written by: Drew Dwyer and Garry Lewis *” 

echo “ * Design Database v1.1 WP.D.A.L.G . *” 


PITT TTS TEL TST TST TPS PCTS Ce TCS OCCT CSCC CCCCCCCCCCCCCOCCCCCCCCTCC CCL CCS CS TT 


Press Return to begin demonstration 


Running main ddb53 pip c331 ... 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Running main ddb53 pip fishfarm ‘Drew Dwyer’ ... 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Running main ddb53 pip robot “Garry W. Lewis’ file] ... 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 
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INSERT PROTOTYPE test complete ... Press Return to continue 


Running main ddb53 pgd robot ...returns description to screen... 


Me he Me Mi Be Me a a a hc i ah ac ac a cc hc ae eK 2 a KK ak 
Me ie Me Me Me Me eM Me Me eh ea ac ae ce ce ae ee a ae eK a 


+HHHHHHI HHH # FHHHHHHH # 
### HHH 

#H## # HH 

HHH # # HHHHHT # 

HH#H#HH 

HHH #H # 

# HHH HHHHHHH HHH HHH 


This is a simple text file 


to test Drew and Garry’s Prototype Program. 


PEL ESTE LT SET SESS EES TT TS TTS TTT TTS TS TT SE SE SS tS 
We i he ie he ee hc ai i i i ai ai i ic A i i i a hc i cc a i a i a Sc a a a a ok a a a 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Running main ddb53 pud robot file2 ...updates description ... 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Running main ddb53 pgd robot ...returns the new description. 


ee A ae ae ae ae aie oe a ai a ae eae hae kei a ie ei a a ac ae ae a a a ok ke a a a oe i a a a kc 
PEPE TES ES ELE SET ES TLS TTT TS TT ET TT TT eT ESS Te Te TE SS 


HHHHHHH HHH HHH HH HHH 
HHH #H # # 

HHH HH 

HiHtHH # # HHH HHHHH 

####H # 

HH#HH # 

# HHH HHH HHH HHHH HHH 


This file is used to update the 
DESCRIPTION ATTRIBUTE 
in the Design Database. 


<<< FILE UPDATED SUCCESSFULLY >>>> 


Be eee a aie a i a ai ae he 2c hc 2c ea a ae eke a a kee fe a ak ah oe fee fe ae ae hc ae ae ake 3c a a 


d2 


aK kk dk kok dk Ok rR Oki gk gi ok ak gogo ak ake ak 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


GET/UPDATE PROTOTYPE DESCRIPTION test complete ... Press Return to continue 
Running main ddbS3 prd c3i 
Tue Sep 3 11:05:42 1991 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


RETRIEVE PROTOTYPE DATE test complete ... Press Return to continue 
Running main ddb53 pul robot Larry Williamson ... 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Running main ddbS53 pg! robot 
Larry Williamson 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


UPDATE/GET PROTOTYPE test complete ... Press Return to continue 
Running main ddb53 pds c31 .... 
Creation Date: Tue Sep 3 11:05:42 1991 


Leader: 
Default Config: 


<No configurations are contained in this prototype.> 


Prototype Description follows: 


er nc i eo em es 
eS Se i eS Se Ge ee ee ee 


<This prototype does not contain a description> 
CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Press Return to continue 


Running main ddbS53 pds fishfarm ... 
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Creation Date: Tue Sep 3 11:05:47 1991 


Leader: Drew Dwyer 
Default Config: 


<No configurations are contained in this prototype.> 


Prototype Description follows: 





<This prototype does not contain a description> 
CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Press Return to continue 
Running main ddb53 pds robot ... 
Creation Date: Tue Sep 3 11:05:50 1991 


Leader: Larry Williamson 
Default Config: 


<No configurations are contained in this prototype.> 


Prototype Description follows: 


PTET eTe TTT TTtrtrTTttTtTtTttrt rT Ttrr tre rer rr. rr Ter TS 
SOIR IO IO IO GIG I IO GIGI I GIGI II i iI I Ii i i kok i rea fea aie afc ale a 


HHHHHH HHH # HHH HHHHH 
#H HH # # 

HHH HH 

HiHtHH # # HIHHH HHHHH 

HHH HH 

HHH #H # 

HHH HHH HHAHHH HHH 


This file is used to update the 
DESCRIPTION ATTRIBUTE 
in the Design Database. 


<<< FILE UPDATED SUCCESSFULLY >>>> 


SIO IOIG IOI II OI OI I II I I IOI IOI I IOI i i ak tera kok ate ake ak 
ROI IOI IG IO IOI IOI IOI OIRO ii Ri RGR IO i ake af ake aie ake ate aie ate aie af 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


DUMP PROTOTYPE SUMMARY test complete ... Press Retum to continue 
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Running main ddbS53 pln ... 
c31 


fishfarm 
robot 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


LIST PROTOTYPE NAMES test complete ... Press Return to continue 


Running main ddbS53 cic c3i unix ... 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Running main ddb53 cic c3i dos ‘Drew Dwyer’ ... 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Running main ddb53 cic c3i sparc ‘Garry Lewis’ file] ... 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


INSERT CONFIGURATION test complete... Press Return to continue 


Running main ddbS3 cum c3i dos ‘Marty Shoppenheimer’ ... 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


UPDATE CONFIGURATION MANAGER test complete... Press Return to continue 


Running main ddb53 cds c3i unix ... 
Creation Date: Tue Sep 3 11:08:26 1991 


Manager: 
Version Number: NONE 


Default VOBJECT Name 


|S sem sr ec i ce i SEE ee ee ee 
SSS SS GS EE ee 


<This configuration has not been assigned a V_OBJECT> 
Configuration Description follows: 


ee es ee ee ee ee eee ee ee ee eee eee ee eee eee 
Sain se oe iin ee i eS eS I a et 





<This configuration does not contain a description> 


US 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Press Return to continue 


Running main ddb53 cds c3i dos ... 
Creation Date: Tue Sep 3 11:08:28 1991 


Manager: Marty Shoppenheimer 
Version Number: NONE 


Default VOBJECT Name 





<This configuration has not been assigned a V_OBJECT> 
Configuration Description follows: 


<This configuration does not contain a description> 
CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Press Return to continue 


Running main ddb53 cds c3i sparc ... 
Creation Date: Tue Sep 3 11:08:31 1991 


Manager: Garry Lewis 
Version Number: NONE 


Default VOBJECT Name 


<This configuration has not been assigned a V_OBJECT> 
Configuration Description follows: 


We A ok He eo i ke ae ke ae ke a ak ade ke ak ake ak a ak ake ak ak a8 a ake ak aie a ai a a ade ae a a a ade a ae oe a ok ok 
OK ake ae ae ie he oe he a ake ie ae a i ae ae a a a a ae a ake a a a i ake eo i oo ok Kk 


HEH HHT HHH # HHH # 
HHH HHH 

HHHHHH 

HHHHH # OH THHIHE # 

HHH HH 

HHH H # 

# #88 HHH FHHHEE HHH 


This is a simple text file 


to test Drew and Garry’s Prototype Program. 


He He Oe ae a 2 a he he ake ae ad a da ae ade ae ae a ee he oe a a ate 2h ate ak a ae a a ai a ak kc 2 ok Ko 
PES EEL E EEE SSE E ES ES TS TSS TEST TSE TT TT SFT ST Ft SS SS Se 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 
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DUMP CONFIGURATION SUMMARY test complete... Press Return to continue 


Running main ddb53 cgd c3i sparc ... 


sO OI IO a IO I IOI OIG IOI I ROI i Fi a 
ST PePTECeeLeCCeLeCTTCLrreereeeecrerrrete te ee eo eo tf 


tHE THHT HHH # THHHAHEE # 
HHH #H HH 

HHH#H #H# 

tHE # # HHH # 

HHEHH 

HHH H # 

# HHH HHH BR THHH HARE 


This is a simple text file 


to test Drew and Garry’s Prototype Program. 


OK ee he ae ae he ae hee a hee a 2c a hee a ah a ah ae a ah ah a eae a ae 2c 2c a ke a a 2c a ae ke ae 2c a a 2k 
2 ie he he he ae oe he ate ah ae ah ae ae ae ae ate fe ate ea ae 2c a aca ae ae eae 2c a a ake a a oe ae a ak oe ae oe a ak ok 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Press Return to continue 


Running main ddb53 cud c3i sparc file2 ... 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Press Return to continue 


Running main ddb53 cgd c3i sparc ... 


Me Re ae a a ah ah ah ah ak ae oe a ake ae ae ake ae a a a a a a a ade a ake ade ae 2c ae a a ae ae ae ae ae ae a ae ae ae ok 
We he ae ae he ake ae ate ae a a ae a ae a a ae ee ate ae ate ae a ae ae fe a a ae a a a a ade 2 a a a ak a a aie ak ak ak 


HHHHHHH HHH # HHH HAEHH 
H##HHH#H 

HHEHH 

HHH # # THA HEHEHE 

HHHH#H 

HHH #H# 

# HHH FHHHHEE HHH BR 


This file is used to update the 
DESCRIPTION ATTRIBUTE 
in the Design Database. 


1 


<<< FILE UPDATED SUCCESSFULLY >>>> 


eTTECTTtTTTrTTtrttttrrrtttrrrtttrrrrrrt ter reer. tf 
TCT eTETCTTTCrtrrttrtrrrrrrrrrttrrit eri tere. t 2 t 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


CONFIGURATION DUMP SUMMARY test complete... Press Return to continue 
Running main ddb53 cda c3i sparc ... 
Tue Sep 3 11:08:31 1991 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


GET CONFIGURATION DATE test complete... Press Return to continue 


Running main ddb53 cpl c3i sparc “This is the first Post to Sparc Log’ 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Now check it to see that it’s posted... 


Running ddb53 cgl c3i sparc ... 


Tue Sep 3 11:09:50 1991 
This is the first Post to Sparc Log 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 
Press Return to continue 


Add another line to the log ... 
Running main ddb53 cpl c3i sparc “This is the second Post to Sparc Log’ 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 
Show the results ... 
Running ddb53 cgl c3i sparc ... 


Tue Sep 3 11:09:50 1991 


78 


This is the first Post to Sparc Log 
Tue Sep 3 11:09:56 1991 
This 1s the second Post to Sparc Log 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


POST/GET CONFIGURATION LOG test complete... Press Return to continue 


Running main ddb53 cgm c3i dos ... 
Marty Shoppenheimer 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 
Now we'll change the manager to ‘Kelly Mcdowell’ 
Running main ddb53 cum c3i dos ‘Kelly Mcdowell’ ... 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Now make sure it posted... 
Running main ddbS3 cgm c3i dos ... 
Kelly Mcdowell 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


GET/UPDATE CONFIGURATION MANAGER test complete... Press Return to continue 
Running main ddb53 cin c31... 

unix 

dos 

sparc 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


LIST CONFIGURATION NAMES test complete... Press Return to continue 
We now move on to the actual loading of the ONTOS Database. 

Running main ddbS3 vaa c3i c3/ ... 

CHECKIN--> c3i 


CHECKIN--> c3i.comms_interface 
CHECKIN--> c3i.comms_interface.prepare_periodic_report 


we 


CHECKIN--> c3i.comms_interface.resolve_incoming_messages 

CHECKIN--> c3i.comms_interface.resolve_incoming_messages.decide_for_archiving 
CHECKIN--> c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 
CHECKIN--> c3i.comms_interface.resolve_incoming_messages.extract_tracks 
CHECKIN--> c3i.comms_interface.resolve_incoming_messages.parse_input_file 
CHECKIN--> c3i.comms_interface.resolve_outgoing_ messages 

CHECKIN--> c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
CHECKIN--> c3i.comms_interface.resolve_outgoing messages.forward_for_translation 
CHECKIN--> c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 
CHECKIN--> c3i.comms_interface.resolve_outgoing_messages.make_routing 
CHECKIN--> c3i.comms_interface.translate_message 

CHECKIN--> c3i.comms_links 

CHECKIN--> c3i.navigation_system 

CHECKIN--> c3i.sensor_interface 

CHECKIN--> c3i.sensor_interface.analyze_sensor_data 

CHECKIN--> c31.sensor_interface.normalize_sensor_information 

CHECKIN--> c3i.sensor_interface.prepare_sensor_track 

CHECKIN--> c3i.sensors 

CHECKIN--> c3i.track_database_manager 

CHECKIN--> c3i.track_database_manager.monitor_database 

CHECKIN--> c3i.track_database_manager.update_tracks 

CHECKIN--> c3i.track_database_manager.update_tracks.add_comms_tracks 
CHECKIN--> c3i.track_database_manager.update_tracks.add_sensor_track 
CHECKIN--> c31.track_database_manager.update_tracks.add_user_track 
CHECKIN--> c3i.track_database_manager.update_tracks.delete_the_track 
CHECKIN--> c3i.track_database_manager.update_tracks.filter_comms_tracks 
CHECKIN--> c3i.track_database_manager.update_tracks.filter_sensor_tracks 
CHECKIN--> c3i.track_database_manager.update_tracks.monitor_ownship_position 
CHECKIN--> c3i.track_database_manager.update_tracks.update_the_track 
CHECKIN--> c3i.user_interface 

CHECKIN--> c3i.user_interface.display_graphic_tracks 

CHECKIN--> c31.user_interface.display_tracks 

CHECKIN--> c3i.user_interface.emergency_status_screen 

CHECKIN--> c3i.user_interface.get_modification_data 

CHECKIN--> c3i.user_interface.get_user_inputs 

CHECKIN--> c3i.user_interface.intelligence_report_panel 

CHECKIN--> c3i.user_interface.manage_user_interface 

CHECKIN--> c3i.user_interface.message_arrival 

CHECKIN--> c3i.user_interface.message_arrival_panel 

CHECKIN--> c3i.user_interface.message_editor 

CHECKIN--> c3i.user_interface.resolution_notice_panel 

CHECKIN--> c3i.user_interface.status_screen 

CHECKIN--> c3i.weapons_interface 

CHECKIN--> c3i.weapons_systems 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Add c3i test complete... Now we’ll add a different Prototype 
called fishfarm. Press Return to continue... 


Running main ddb53 vaa fishfarm fishfarm ... 

CHECKIN--> fishfarm 

CHECKIN--> fishfarm.Control_feeding 

CHECKIN--> fishfarm.Control_feeding_times 

CHECKIN--> fishfarm.Determine_actual_inlet_valve_setting 
CHECKIN--> fishfarm.Determine_actual_outlet_valve_setting 
CHECKIN--> fishfarm.H2O_sensor 

CHECKIN--> fishfarm.Determine_desired_inlet_valve_setting NH3 
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CHECKIN--> fishfarm.Determine_desired_inlet_valve_setting O2 
CHECKIN --> fishfarm.Display_system_status 

CHECKIN--> fishfarm.Inlet_valve 

CHECKIN--> fishfarm.NH3_sensor 

CHECKIN--> fishfarm.Outlet_valve 

CHECKIN--> fishfarm.ffconsole 

CHECKIN--> fishfarm.mytime 

CHECKIN--> fishfarm.o2_sensor 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Add fishfarm test complete... Now we’ll add a different Prototype 
called robot. Press Return to continue... 


Running main ddb53 vaa robot robot ... 
CHECKIN--> robot 

CHECKIN--> robot. Accelerometer 
CHECKIN--> robot.Calculate_Position 
CHECKIN--> robot.Fire_Thrusters 
CHECKIN--> robot.Get_Keys 
CHECKIN--> robot. Update_Acceleration 
CHECKIN--> robot. Update_Display 
CHECKIN--> robot. Update_Thrust_Req 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Add robot test complete ... Press return to continue 


Now show the PLL command to reflect that each Prototype has a default version 


Running ddbS3 pil ... 

Name: c3i Default Config: sparc Version: 1 
Name: fishfarm Default Config: NONE Version: 1 
Name: robot Default Config: NONE Version: 1 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


LOAD V_OBJECT and SUBTREE test complete... Press Return to continue 
Running main ddb53 vlo c3i c33 ... 


Operator: c3i 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.prepare_periodic_report 
Version: 1 
Lockume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.decide_for_archiving 


Version: 1] 
Locktume is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.extract_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.parse_input_file 
Version: 1 
Locktuume is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.resolve_incoming_messages 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i1.comms_interface.resolve_outgoing_messages.forward_for_transmission 
Version: 1 


Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.make_routing 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.resolve_outgoing_messages 
Version: 1 
Lockume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.translate_message 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_links 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.navigation_system 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensor_interface.analyze_sensor_data 
Version: 1 
Lockume is: Wed Dec 31 16:00:00 1969 


Operator: c31.sensor_interface.normalize_sensor_information 
Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.sensor_interface.prepare_sensor_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensor_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensors 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.monitor_database 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.add_comms_tracks 
Version: 1] 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.add_sensor_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.add_user_track 
Version: 1] 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.delete_the_track 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.filter_comms_tracks 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.filter_sensor_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.monitor_ownship_position 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.update_the_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager 

Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.display_graphic_tracks 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.display_tracks 
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Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.emergency_status_screen 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.get_modification_data 
Version: 1 
Lockume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.get_user_inputs 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.user_interface.intelligence_report_panel 
Version: 1] 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.manage_user_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_arrival 
Version: 1 
Locktme is: Wed Dec 31 16:00:00 1969 


Operator: c31.user_interface.message_arrival_panel 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_editor 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.resolution_notice_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.user_interface.status_screen 
Version: 1 
Lockume is: Wed Dec 31 16:00:00 1969 


Operator: C3i.user_interface 

Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
Operator: c3i.weapons_interface 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
Operator: c3i.weapons_systems 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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Press return to continue ... 
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Running main ddb53 vil c3i c33 ... 


Operator: comms_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: comms_links 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: navigation_system 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: sensor_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: sensors 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: track_database_manager 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: user_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: weapons_interface 

Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
Operator: weapons_systems 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue ... 

Running main ddb53 vio c3i c3i.comms_interface ... 
Operator: c3i.comms_interface 

Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c31.comms_interface.prepare_periodic_report 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_incoming_messages.decide_for_archiving 
Version: 1 

Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 
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Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.extract_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.parse_input_file 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
Version: 1 
Locktuume is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.resolve_outgoing_messages.forward_for_translation 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.make_routing 
Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_outgoing messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.translate_message 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue ... 

Running main ddbS53 vil c3i c3i.comms_interface ... 
Operator: prepare_periodic_report 
Version: 1 

Locktume is: Wed Dec 31 16:00:00 1969 
Operator: resolve_incoming_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
Operator: resolve_outgoing_messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 


Operator: translate_message 


86 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


V_OBJECT LIST/LONG LIST OPERATORS test complete... Press Return to continue 
Running main ddb53 vlo c3i c3i.comms_interface.resolve_outgoing messages ... 


Operator: c31.comms_uinterface.resolve_outgoing_messages 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.resolve_outgoing_messages.forward_for_translation 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.resolve_outgoing_messages.forward_for_transmission 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.make_routing 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue ... 
Running main ddbS$3 vii c3i c31.comms_interface.resolve_outgoing_messages ... 


Operator: convert_to_text_file 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: forward_for_translation 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: forward_for_transmission 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
Operator: make_routing 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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V_OBJECT LIST/LONG LIST OPERATORS test complete... Press Return to continue 
Running main ddb53 CAO c3i unix c31 ... 
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Running main ddb53 cao c3i dos c31.user_interface 
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Running main ddb53 cao c3i sparc c3i.comms_interface.resolve_outgoing_messages 
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ATTACH OPERATORS to a CONFIGURATION test complete... Press Return to continue 


Running main ddbS3 clo c3i unix ... 
Operator: c3i 

Version: 1 

Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.prepare_penodic_report 
Version: 1 
Lockuume is: Wed Dec 31 16:00:00 1969 


Operator: c3i1.comms_interface.resolve_incoming_messages.decide_for_archiving 
Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 
Version: 1 


Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.resolve_incoming_messages.extract_tracks 
Version: 1] 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.parse_input_file 
Version: 1 


Locktume is: Wed Dec 31 16:00:00 1969 

Operator: c3i.comms_interface.resolve_incoming messages 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
Version: 1 
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Locktime ts: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 
Version: 1 
Locktuume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.make_routing 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing messages 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.translate_message 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_links 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.navigation_system 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensor_interface.analyze_sensor_data 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.sensor_interface.normalize_sensor_information 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensor_interface.prepare_sensor_track 
Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensor_interface 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensors 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.monitor_database 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.add_comms_tracks 


Version: 1] 
Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.urack_database_manager.update_tracks.add_sensor_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: ¢3i.track_database_manager.update_tracks.add_user_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.delete_the_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.filter_comms_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.filter_sensor_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: ¢3i.track_database_manager.update_tracks.monitor_ownship_position 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.update_the_track 
Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 


Operator: C31.track_database_manager.update_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.user_interface.display_graphic_tracks 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.display_tracks 
Version: 1] 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: C3i.user_interface.emergency_status_screen 
Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.get_modification_data 
Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.get_user_inputs 
Version: 1 
Locktuume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.intelligence_report_panel 


Version: 1 
Locktiume is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.user_interface.manage_user_interface 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_arrival 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_arrival_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_editor 
Version: 1 
Locktuume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.resolution_notice_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.status_screen 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.user_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.weapons_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.weapons_systems 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue 


Running main ddb53 clo c3i dos ... 
or: c3i.user_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.display_graphic_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.display_tracks 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.emergency_status_screen 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.user_interface.get_modification_data 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.get_user_inputs 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.intelligence_report_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.manage_user_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_arrival 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_arrival_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_editor 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.resolution_notice_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.status_screen 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue 
Running main ddbS3 clo c3i sparc ... 


Operator: c31.comms_interface.resolve_outgoing_messages 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 
Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.comms_interface.resolve_outgoing_messages.make_routing 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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CONFIGURATION LIST OPERATOR test complete... Press Return to continue 
Running main ddb53 cll c3i unix ... 


Operator: comms_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: comms_links 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: navigation_system 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: sensor_interface 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: sensors 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: track_database_manager 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
Operator: user_interface 

Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
Operator: weapons_interface 

Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
Operator: weapons_systems 


Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 
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Press Return to continue 


Running main ddbS3 cll c3i dos ... 
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Operator: display_graphic_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: display_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: emergency_status_screen 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: get_modification_data 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: get_user_inputs 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: intelligence_report_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: manage_user_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: message_arrival 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: message_arrival_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: message_editor 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: resolution_notice_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: status_screen 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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Press Return to continue 


Running main ddbS3 cll c3i sparc ... 
r: convert_to_text_file 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


94 


Operator: forward_for_translation 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: forward_for_transmission 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: make_routing 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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CONFIGURATION LONG LIST OPERATORS test complete... Press Return to continue 
Running main ddb53 cdt c3i unix r... 


NODENAME ---> c3i 
Version: 1 


NODENAME ---> prepare_periodic_report 
Version: 1 


NODENAME ---> decide_for_archiving 
Version: 1 


NODENAME ---> decide_for_relaying 
Version: 1 


NODENAME ---> extract_tracks 
Version: 1 


NODENAME ---> parse_input_file 
Version: 1 


NODENAME ---> resolve_incoming_messages 
Version: 1 


NODENAME ---> convert_to_text_file 
Version: 1 


NODENAME ---> forward_for_translation 
Version: 1 


NODENAME ---> forward_for_transmission 
Version: 1 


NODENAME ---> make_routing 
Version: 1 


NODENAME ---> resolve_outgoing messages 
Version: 1 


NODENAME ---> translate_message 
Version: 1 


2D 


NODENAME ---> comms_ interface 
Version: 1 


NODENAME ---> comms_links 
Version: 1 


NODENAME ---> navigation_system 
Version: 1 


NODENAME ---> analyze_sensor_data 
Version: 1 


NODENAME ---> normalize_sensor_information 
Version: 1 


NODENAME ---> prepare_sensor_track 
Version: 1 


NODENAME ---> sensor_interface 
Version: 1 


NODENAME ---> sensors 
Version: 1 


NODENAME ---> monitor_database 
Version: 1 


NODENAME ---> add_comms_tracks 
Version: 1 


NODENAME ---> add_sensor_track 
Version: 1 


NODENAME ---> add_user_track 
Version: 1] 


NODENAME ---> delete_the_track 
Version: 1 


NODENAME ---> filter_comms_tracks 
Version: 1 


NODENAME ---> filter_sensor_tracks 
Version: ] 


NODENAME ---> monitor_ownship_position 
Version: 1 


NODENAME ---> update_the_track 
Version: 1 


NODENAME ---> update_tracks 
Version: 1 


NODENAME ---> track_database_manager 
Version: 1] 


NODENAME ---> display_graphic_tracks 
Version: 1 


NODENAME ---> display_tracks 


96 


Version: 1 


NODENAME ---> emergency_status_screen 
Version: 1 


NODENAME ---> get_modification_data 
Version: 1 


NODENAME ---> get_user_inputs 
Version: 1 


NODENAME ---> intelligence_report_panel 
Version: 1 


NODENAME ---> manage_user_interface 
Version: 1 


NODENAME ---> message_arrival 
Version: 1 


NODENAME ---> message_arrival_panel 
Version: 1 


NODENAME ---> message_editor 
Version: 1 


NODENAME ---> resolution_notice_panel 
Version: 1 


NODENAME ---> status_ screen 
Version: 1 


NODENAME ---> user_interface 
Version: 1 


NODENAME ---> weapons_interface 
Version: 1 


NODENAME ---> weapons_systems 
Version: 1 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Examine the directory now and you'll see the checked out subtree ... 
Running main ddbS3 cdt c3i unix w ... Dumping Tree 


NODENAME ---> c3i 
Version: 1 


setworker --> to dwyer 
NODENAME ---> prepare_periodic_report 
Version: 1 


setworker --> to dwyer 


NODENAME ---> decide_for_archiving 
Version: 1 
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setworker --> to dwyer 
NODENAME ---> decide_for_relaying 
Version: 1 


setworker --> to dwyer 
NODENAME ---> extract_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> parse_input_file 
Version: 1 


setworker --> to dwyer 
NODENAME ---> resolve_incoming_messages 
Version: 1 


setworker --> to dwyer 
NODENAME ---> convert_to_text_file 
Version: 1 


setworker --> to dwyer 
NODENAME ---> forward_for_translation 
Version: 1 


setworker --> to dwyer 
NODENAME ---> forward_for_transmission 
Version: 1 


setworker --> to dwyer 
NODENAME ---> make_routung 
Version: 1 


setworker --> to dwyer 
NODENAME ---> resolve_outgoing_messages 
Version: 1 


setworker --> to dwyer 
NODENAME ---> translate_message 
Version: 1 


setworker --> to dwyer 
NODENAME ---> comms_interface 
Version: 1 


setworker --> to dwyer 
NODENAME ---> comms_links 
Version: I 


setworker --> to dwyer 
NODENAME ---> navigation_system 
Version: 1 


setworker --> to dwyer 
NODENAME ---> analyze_sensor_data 
Version: 1 


setworker --> to dwyer 


NODENAME ---> normalize_sensor_information 
Version: 1 
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setworker --> to dwyer 
NODENAME ---> prepare_sensor_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> sensor_interface 
Version: 1 


setworker --> to dwyer 
NODENAME ---> sensors 
Version: 1 


setworker --> to dwyer 
NODENAME ---> monitor_database 
Version: 1 


setworker --> to dwyer 
NODENAME ---> add_comms_ tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> add_sensor_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> add_user_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> delete_the_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> filter_comms_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> filter_sensor_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> monitor_ownship_position 
Version: 1 


setworker --> to dwyer 
NODENAME ---> update_the_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> update_tracks 
Version: 1 


setworker --> to dwyer 

NODENAME ---> track_database_manager 
Version: 1 

setworker --> to dwyer 

NODENAME ---> display_graphic_tracks 
Version: 1 


setworker --> to dwyer 
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NODENAME ---> display_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> emergency_status_screen 
Version: 1 


setworker --> to dwyer 
NODENAME ---> get_modification_data 
Version: 1 


setworker --> to dwyer 
NODENAME ---> get_user_inputs 
Version: 1 


setworker --> to dwyer 
NODENAME ---> intelligence_report_panel 
Version: 1 


setworker --> to dwyer 
NODENAME ---> manage_user_interface 
Version: 1 


setworker --> to dwyer 
NODENAME ---> message_arrival 
Version: 1 


setworker --> to dwyer 
NODENAME ---> message_arrival_panel 
Version: 1 


setworker --> to dwyer 
NODENAME ---> message_editor 
Version: 1 


setworker --> to dwyer 
NODENAME ---> resolution_notice_panel 
Version: 1 


setworker --> to dwyer 
NODENAME ---> status_screen 
Version: 1 

setworker --> to dwyer 
NODENAME ---> user_interface 
Version: 1 

setworker --> to dwyer 
NODENAME ---> weapons_interface 
Version: 1 

setworker --> to dwyer 
NODENAME ---> weapons_systems 
Version: 1 


setworker --> to dwyer 
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Running main ddbS53 crl c3i unix ...Resetting Locks 
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Examine the directory now and you'll see the checked out subtree ... 
Running main ddb53 cdt c3i dos r ... Dumping Tree 


NODENAME ---> user_interface 
Version: 1 


NODENAME ---> display_graphic_tracks 
Version: 1 


NODENAME ---> display_tracks 
Version: 1 


NODENAME ---> emergency_status_screen 
Version: 1 


NODENAME ---> get_modification_data 
Version: 1 


NODENAME ---> get_user_inputs 
Version: 1 


NODENAME ---> intelligence_report_panel 
Version: 1 


NODENAME ---> manage_user_interface 
Version: 1 


NODENAME ---> message_arrival 
Version: 1 


NODENAME ---> message_arrival_panel 
Version: 1 


NODENAME ---> message_editor 
Version: 1 


NODENAME ---> resolution_notice_panel 
Version: 1 


NODENAME ---> status_screen 
Version: 1 
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Examine the directory now and you’ ll see the checked out subtree ... 
Running main ddbS3 cdt c3i sparc w ...Dumping Tree 
NODENAME ---> resolve_outgoing_messages 
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Version: 1 


setworker --> to dwyer 
NODENAME ---> convert_to_text_file 
Version: 1 


setworker --> to dwyer 
NODENAME ---> forward_for_translation 
Version: 1 


setworker --> to dwyer 
NODENAME ---> forward_for_transmission 
Version: 1 


setworker --> to dwyer 
NODENAME ---> make_routing 
Version: 1 


setworker --> to dwyer 
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Running main ddbS3 cri c3i unix ...Resetting Locks 
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Examine the directory now and you'll see the checked out subtree ... 
Press return to continue 


Running main ddbS3 cdt c3i unix w ... Dumping Tree for UPDATE 
NODENAME ---> c3i 
Version: 1 


setworker --> to dwyer 
NODENAME ---> prepare_periodic_report 
Version: 1 


setworker --> to dwyer 
NODENAME ---> decide_for_archiving 
Version: 1 


setworker --> to dwyer 
NODENAME ---> decide_for_relaying 
Version: 1 


setworker --> to dwyer 
NODENAME ---> extract_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> parse_input_file 
Version: 1 


setworker --> to dwyer 
NODENAME ---> resolve_incoming_messages 
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Version: 1 


setworker --> to dwyer 
NODENAME ---> convert_to_text_file 
Version: 1 


setworker --> to dwyer 
NODENAME ---> forward_for_translation 
Version: 1 


setworker --> to dwyer 
NODENAME ---> forward_for_transmission 
Version: 1 


setworker --> to dwyer 
NODENAME ---> make_routing 
Version: 1 


setworker --> to dwyer 
NODENAME ---> resolve_outgoing messages 
Version: 1 


setworker --> to dwyer 
NODENAME ---> translate_message 
Version: 1 


setworker --> to dwyer 
NODENAME ---> comms_ interface 
Version: 1 


setworker --> to dwyer 
NODENAME ---> comms_links 
Version: 1 


setworker --> to dwyer 
NODENAME ---> navigation_system 
Version: 1 


setworker --> to dwyer 
NODENAME ---> analyze_sensor_data 
Version: 1 


setworker --> to dwyer 
NODENAME ---> normalize_sensor_information 
Version: 1 


setworker --> to dwyer 
NODENAME ---> prepare_sensor_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> sensor_interface 
Version: 1 


setworker --> to dwyer 
NODENAME ---> sensors 
Version: 1 


setworker --> to dwyer 


NODENAME ---> monitor_database 
Version: 1 
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setworker --> to dwyer 
NODENAME ---> add_comms_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> add_sensor_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> add_user_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> delete_the_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> filter_comms_tracks 
Version: | 


setworker --> to dwyer 
NODENAME =---> filter_sensor_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> monitor_ownship_position 
Version: 1 


setworker --> to dwyer 
NODENAME ---> update_the_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> update_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> track_database_manager 
Version: 1 


setworker --> to dwyer 
NODENAME ---> display_graphic_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> display_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> emergency _status_screen 
Version: 1 


setworker --> to dwyer 
NODENAME ---> get_modification_data 
Version: 1 


setworker --> to dwyer 


NODENAME ---> get_user_inputs 
Version: 1 
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setworker --> to dwyer 
NODENAME ---> intelligence_report_panel 
Version: 1 


setworker --> to dwyer 

NODENAME ---> manage_user_interface 
Version: 1 

setworker --> to dwyer 

NODENAME ---> message_arrival 
Version: 1 

setworker --> to dwyer 

NODENAME ---> message_arrival_panel 
Version: 1 

setworker --> to dwyer 

NODENAME ---> message_editor 
Version: 1 

setworker --> to dwyer 

NODENAME ---> resolution_notice_panel 
Version: 1 

setworker --> to dwyer 

NODENAME ---> status_screen 

Version: 1 

setworker --> to dwyer 

NODENAME ---> user_interface 
Version: 1 

setworker --> to dwyer 

NODENAME ---> weapons_interface 
Version: 1 

setworker --> to dwyer 

NODENAME ---> weapons_systems 
Version: 1 


setworker --> to dwyer 
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CONFIGURATION DUMP TREE test complete ... Press Return to continue 
Simulating updates by TOUCHING files 
Running touch c3ips ... 


Running touch c3i.user_interface.imp.psd ... 


Running touch c3i.user_interface.message_arrival_panel.spec.psd ... 


Running touch c3i.user_interface_emergency_status_screen.imp.psd ... 
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We have just simulated editing several operators... 
Press Return to continue 


Running a CONFIGURATION update now (Posting version #2 of c31) ... 
Running main ddb53 caa c3i unix ... 


CHECKIN--> c3i 

CHECKIN--> c3i.comms_interface 
CHECKIN--> c3i.comms_interface.prepare_periodic_report 

CHECKIN--> c3i.comms_interface.resolve_incoming_messages 

CHECKIN--> c3i.comms_interface.resolve_incoming_messages.decide_for_archiving 
CHECKIN--> c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 
CHECKIN--> c3i.comms_interface.resolve_incoming_messages.extract_tracks 
CHECKIN--> c3i.comms_interface.resolve_incoming_messages.parse_input_file 
CHECKIN--> c3i.comms_interface.resolve_outgoing_messages 

CHECKIN--> c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
CHECKIN--> c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 
CHECKIN--> c31.comms_interface.resolve_outgoing_messages.forward_for_transmission 
CHECKIN--> c3i.comms_interface.resolve_outgoing_messages.make_routing 
CHECKIN--> c3i.comms_interface.translate_message 

CHECKIN--> c3i.comms_links 

CHECKIN--> c3i.navigation_system 

CHECKIN--> c3i.sensor_interface 

CHECKIN--> c3i.sensor_interface.analyze_sensor_data 

CHECKIN--> c3i.sensor_interface.normalize_sensor_information 

CHECKIN--> c31.sensor_interface.prepare_sensor_track 

CHECKIN--> c3i.sensors 

CHECKIN--> c31.track_database_manager 

CHECKIN--> c3i.track_database_manager.monitor_database 

CHECKIN--> c3i.track_database_manager.update_tracks 

CHECKIN--> c3i.track_database_manager.update_tracks.add_comms_tracks 
CHECKIN--> c3i.track_database_manager.update_tracks.add_sensor_track 
CHECKIN--> c31.track_database_manager.update_tracks.add_user_track 

CHECKIN--> c31.track_database_manager.update_tracks.delete_the_track 
CHECKIN--> c31.track_database_manager.update_tracks.filter_comms_tracks 
CHECKIN --> c3i.track_database_manager.update_tracks.filter_sensor_tracks 
CHECKIN--> c3i.track_database_manager.update_tracks.monitor_ownship_position 
CHECKIN--> c3i.track_database_manager.update_tracks.update_the_track 
CHECKIN--> c3i.user_interface 

CHECKIN--> c31.user_interface.display_graphic_tracks 

CHECKIN--> c3i.user_interface.display_tracks 

CHECKIN--> c3i.user_interface.emergency_status_screen 

CHECKIN--> c3i.user_interface.get_modification_data 

CHECKIN--> c3i.user_interface.get_user_inputs 

CHECKIN--> c3i.user_interface.intelligence_report_panel 

CHECKIN--> c3i.user_interface.manage_user_interface 

CHECKIN--> c31.user_interface.message_arrival 

CHECKIN--> c3i.user_interface.message_arrival_panel 

CHECKIN--> c3i.user_interface.message_editor 

CHECKIN--> c3i.user_interface.resolution_notice_panel 

CHECKIN--> c3i.user_interface.status_screen 

CHECKIN--> c3i.weapons_interface 

CHECKIN--> c3i.weapons_systems 
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CONFIGURATION UPDATE TREE test complete ... Press Return to continue 


Show the versions of the root vobject ... 
Running ddb53 vgv c3ic31... 


THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 
l 
2 
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Show the versions of the user_interface vobject ... 


Running ddb53 vgv c3i c3i.user_interface ... 


THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 
] 
2 
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Show the versions of the emergency_status_screen vobject ... 
Running ddbS3 vgv c3i c3i.user_interface.emergency_status_screen ... 
THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 

1 

2 
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Show the version of an OPERATOR which DID NOT version ... 
Running ddbS3 vgv c3i c3i.comms_interface ... 

THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 
1 
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Press Retum to continue 


Running main ddb53 vdt c3i c3i w 


NODENAME ---> c3i 
Version: 2 


setworker --> to dwyer 
NODENAME ---> prepare_periodic_report 
Version: 1 


setworker --> to dwyer 
NODENAME ---> decide_for_archiving 
Version: 1 


setworker --> to dwyer 
NODENAME ---> decide_for_relaying 
Version: 1 


setworker --> to dwyer 
NODENAME ---> extract_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> parse_input_file 
Version: 1 


setworker --> to dwyer 
NODENAME ---> resolve_incoming_messages 
Version: 1 


setworker --> to dwyer 
NODENAME ---> convert_to_text_file 
Version: 1 


setworker --> to dwyer 
NODENAME ---> forward_for_translation 
Version: 1 


setworker --> to dwyer 
NODENAME ---> forward_for_transmission 
Version: 1 


setworker --> to dwyer 
NODENAME ---> make_routing 
Version: 1 


setworker --> to dwyer 

NODENAME ---> resolve_outgoing_messages 
Version: 1 

setworker --> to dwyer 

NODENAME ---> translate_message 

Version: 1 


setworker --> to dwyer 
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NODENAME ---> comms_ interface 
Version: 1] 


setworker --> to dwyer 
NODENAME ---> comms_links 
Version: 1 


setworker --> to dwyer 
NODENAME ---> navigation_system 
Version: 1 


setworker --> to dwyer 
NODENAME ---> analyze_sensor_data 
Version: 1 


setworker --> to dwyer 
NODENAME ---> normalize_sensor_information 
Version: 1 


setworker --> to dwyer 
NODENAME ---> prepare_sensor_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> sensor_interface 
Version: 1 


setworker --> to dwyer 
NODENAME ---> sensors 
Version: 1 


setworker --> to dwyer 
NODENAME ---> monitor_database 
Version: 1 


setworker --> to dwyer 
NODENAME ---> add_comms_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> add_sensor_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> add_user_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> delete_the_track 
Version: 1 


setworker --> to dwyer 

NODENAME ---> filter_comms_tracks 
Version: 1 

setworker --> to dwyer 

NODENAME ---> filter_sensor_tracks 
Version: 1 


setworker --> to dwyer 
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NODENAME ---> monitor_ownship_ position 
Version: 1 


setworker --> to dwyer 
NODENAME ---> update_the_track 
Version: 1 


setworker --> to dwyer 
NODENAME ---> update_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> track_database_manager 
Version: 1 


setworker --> to dwyer 
NODENAME ---> display_graphic_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> display_tracks 
Version: 1 


setworker --> to dwyer 
NODENAME ---> emergency_status_screen 
Version: 2 


setworker --> to dwyer 
NODENAME ---> get_modification_data 
Version: 1 


setworker --> to dwyer 
NODENAME ---> get_user_inputs 
Version: 1 


setworker --> to dwyer 
NODENAME ---> intelligence_report_panel 
Version: | 


setworker --> to dwyer 
NODENAME ---> manage_user_interface 
Version: 1 


setworker --> to dwyer 
NODENAME ---> message_arrival 
Version: 1 


setworker --> to dwyer 
NODENAME ---> message_arrival_panel 
Version: 2 


setworker --> to dwyer 
NODENAME ---> message_editor 
Version: 1 


setworker --> to dwyer 
NODENAME ---> resolution_notice_panel 
Version: 1 


setworker --> to dwyer 
NODENAME .---> status_ screen 
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Version: | 


setworker --> to dwyer 
NODENAME ---> user_interface 
Version: 2 


setworker --> to dwyer 
NODENAME ---> weapons_interface 
Version: 1 


setworker --> to dwyer 
NODENAME ---> weapons_systems 
Version: 1 


setworker --> to dwyer 
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Now updating modules ... 
Running touch ¢3i.ps ... 


Running touch c3i.user_interface.imp.psd ... 


Running touch c3i.user_interface.message_arrival_panel.spec.psdl ... 


Running touch c3i.user_interface_emergency_status_screen.imp.psd1 ... 


We have just simulated editing several operators.... 
Now Posting Version 3 to the database ... 


Running main ddb53 vaa c31 31 


CHECKIN--> c3i 

CHECKIN--> c31.comms_ interface 

CHECKIN--> c3i.comms_uinterface.prepare_periodic_report 

CHECKIN--> c3i.comms_interface.resolve_incoming_messages 

CHECKIN--> c31.comms_interface.resolve_incoming_messages.decide_for_archiving 
CHECKIN--> c31.comms_interface.resolve_incoming_messages.decide_for_relaying 
CHECKIN--> c3i.comms_interface.resolve_incoming_messages.extract_tracks 
CHECKIN--> c3i.comms_interface.resolve_incoming_messages.parse_input_file 
CHECKIN--> c3i.comms_interface.resolve_outgoing_messages 

CHECKIN--> c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
CHECKIN--> c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 
CHECKIN--> c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 
CHECKIN--> c3i.comms_interface.resolve_outgoing_messages.make_routing 
CHECKIN--> c3i.comms_interface.translate_message 

CHECKIN--> c3i.comms_links 

CHECKIN--> c3i.navigation_system 

CHECKIN--> c3i.sensor_interface 

CHECKIN--> c3i.sensor_interface.analyze_sensor_data 

CHECKIN--> c3i.sensor_interface.normalize_sensor_information 

CHECKIN--> c31.sensor_interface.prepare_sensor_track 


Ji 


CHECKIN--> c3i.sensors 
CHECKIN--> c31.track_database_manager 


CHECKIN--> c3i.track_database_manager.monitor_database 


CHECKIN --> c3i.track_database_manager.update_tracks 


CHECKIN--> c31.track_database_manager.update_tracks.add_comms_tracks 


CHECKIN--> c3i.track_database_manager.update_tracks.add_sensor_track 


CHECKIN--> c3i.track_database_manager.update_tracks.add_user_track 


CHECKIN--> c31.track_database_manager.update_tracks.delete_the_track 


CHECKIN--> c31i.track_database_manager.update_tracks.filter_comms_tracks 


CHECKIN--> c31.track_database_manager.update_tracks.filter_sensor_tracks 


CHECKIN--> c3i.track_database_manager.update_tracks.monitor_ownship_position 


CHECKIN--> c3i.track_database_manager.update_tracks.update_the_track 
CHECKIN--> c31.user_interface 

CHECKIN--> c31.user_interface.display_graphic_tracks 
CHECKIN--> c3i.user_interface.display_tracks 
CHECKIN--> c3i.user_interface.emergency_status_screen 
CHECKIN--> c3i.user_interface.get_modification_data 
CHECKIN--> c31.user_interface.get_user_inputs 
CHECKIN--> c3i.user_interface.intelligence_report_panel 
CHECKIN--> c3i.user_interface.manage_user_interface 
CHECKIN--> c31.user_interface.message_arrival 
CHECKIN--> c31.user_interface.message_arrival_panel 
CHECKIN--> c3i.user_interface.message_editor 
CHECKIN--> c31.user_interface.resolution_notice_panel 
CHECKIN--> c3i.user_interface.status_screen 
CHECKIN--> c3i.weapons_interface 

CHECKIN--> c3i.weapons_systems 
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Press Return to continue 


Now check the versions of c3i in the database 


Running main ddb53 vgv c3ic3i... 
THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 


1 
2 
3 
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Show the versions of the user_interface vobject ... 
Running ddb53 vgv c3i c3i.user_interface ... 
THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 


1 
Z 
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Show the versions of the emergency_status_screen vobject ... 
Running ddb53 vgv c3i c3i.user_interface.emergency_status_screen ... 


THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 
] 
Z 
3 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Show the version of an OPERATOR which DID NOT version ... 
Running ddb53 vgv c3i c3i.comms_interface ... 

THIS THREAD CONTAINS THE FOLLOWING VERSIONS: 
1 
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Show Versions (VGV) test complete ...Press Return to continue 


Running main ddb53 vud c3i c3i.user_interface file3 ... 
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Here is the description entered to that operator ... 


Running main ddb53 vgd c3i c3i.user_interface ... 


SOOO IO IO IGCI IGG III IOIGIIGIOI IOI IOI ii i i i ia i acai ic a aici ica aca aie akc age abc ae ae 
SOOO OIG IO II IOI III ICI IOIGIOIO III I I IOI I iO iG ici baie ic ac ag ac aka atc aie ae age a ae abe age ae ae ae 


# # 7HHHHHHH FHA THEH # HAHAH HHH HHH HHH 
HH#HHHH HH HH HHH 

HHHHHHHH HHH 

# # # # THAHHH # HHH # OH HAH 
HH#HHHH HHH HHH 
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HHH#HHHHHH HH HHH 
# HHHHHH HEHE HAH THE HHH TE ORE 


HHT 
HHH # # # 
## ## 

# #HHHH # 

# # # 
HH#HHH 
tHE HHHHH # 


This file is a test file used 
to update the VOBJECT 
DESCRIPTION ATTRIBUTE. 


<<<< UPDATED SUCCESSFULLY >>>> 


We fe ee fe oh oe fe fe ot a oh oe a a oe fe fe fe oe te ae fe af ae a oc ae a a a a oe age ae oo a oi oh oe oe ok ae a ae oe oe fe oe oo oa feo ok ok ok 
PEt SEE EET ESE SELES ES TTS SES TE SET EEE EE TE ETE TT TE LETT TTT TLE LS TS ETS SS 
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Press Return to continue ... 


Now let’s update an OLDER version of an operator previously stored ... 
Running main ddb53 vud c3i c3i.user_interface file4 1 ... 
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Here is the description entered to that operator ... 


Running main ddb53 vgd c3i c3i.user_interface 1 ... 


PELE LES ELE LETT TES SE TELE TEC TEC SS TT TTC STC TT CST TTT CTT TTT TTS STS tS 
OR Re Re Re Re ACR he ote oh he oi ae fc ae ae oe fe oe fe oe fe oe fe a fe fe oe a of a oe afc ofc a ake ae ake fe ofc oe ake ake ae fe ake af tte fk tC af CAC FC Fe ic 


HH THE HH # OAH HE SH # 
HHH HH HHH HHH 

HHHHHHH HH HHH 

HH # Ht HHHHH # HHHHH # OH OH 


HHEHH HH HH HH HF 
HHHHHHH HH HH HH 


# 7HAHHAH THHHHHE HHH FHHAHHT THAT # HHT 


HHH 
HHH HH # 
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## # # 

# HHH # 
### 
HHHHH 
HHH SHHHH # 


This file is a test file used 
to update the VOBJECT 
DESCRIPTION ATTRIBUTE. 


<<<< UPDATED SUCCESSFULLY >>>> 


pS ST SELES ESET SS TEESE SESE SSE SET ET SESS EES ET SST SSS TTS SESS TE ST EE ETE ES 
HRRKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKE KK KKH KE 
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UPDATE VOBJECT/OPERATOR (VUD) test complete... Press Return to continue ... 


Now attach the configurations to different versions of ROOT VOBJECT ... 
Running main ddb53 cao c31 unix c31 1 
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Running main ddb53 cao c3i dos c31 2 
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Running main ddb53 cao c3i sparc c31 3 
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Press Return to continue 
One Last list to verify everythings in order ... 


Press Return to continue ... 


Running main ddb53 clo c3i unix 
Operator: c3i 

Version: 1 

Locktuume is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.prepare_periodic_report 
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Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.decide_for_archiving 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.extract_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.parse_input_file 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_translation 
Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.make_routing 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages 
Version: 1 


Locktuume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.translate_message 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_links 

Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 
Operator: c3i.navigation_system 
Version: 1 

Lockume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensor_interface.analyze_sensor_data 
Version: 1 
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Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensor_interface.normalize_sensor_information 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensor_interface.prepare_sensor_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensor_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensors 
Version: 1] 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.monitor_database 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.add_comms_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.add_sensor_track 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.add_user_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.track_database_manager.update_tracks.delete_the_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: ¢31.track_database_manager.update_tracks.filter_comms_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.track_database_manager.update_tracks.filter_sensor_tracks 
Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 


Operator: ¢31.track_database_manager.update_tracks.monitor_ownship_position 
Version: 1] 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: ¢31.track_database_manager.update_tracks.update_the_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.user_interface.display_graphic_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.user_interface.display_tracks 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.emergency_status_screen 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.get_modification_data 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.get_user_inputs 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.intelligence_report_panel 
Version: 1 
Locktuume is: Wed Dec 31 16:00:00 1969 


Operator: C31.user_interface.manage_user_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_arrival 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_arrival_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_editor 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.resolution_notice_panel 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.status_screen 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c31.weapons_interface 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.weapons_systems 


Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 
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CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Press Return to continue ... 


Running main ddbS3 clo c3i dos 
Operator: c31 


Version: 2 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.prepare_periodic_report 
Version: 1 
Locktuime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.decide_for_archiving 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.resolve_incoming _messages.decide_for_relaying 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.extract_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.parse_input_file 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming messages 
Version: 1 
Lockume is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.resolve_outgoing _messages.convert_to_text_file 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.resolve_outgoing_messages.forward_for_translation 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.make_routing 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.translate_message 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.comms_interface 

Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c31.comms_links 

Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.navigation_system 

Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface.analyze_sensor_data 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface.normalize_sensor_information 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface.prepare_sensor_track 
Version: 1 

Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.sensor_interface 

Version: 1 

Locktume is: Wed Dec 31 16:00:00 1969 

Operator: ¢31.sensors 

Version: 1 

Locktuume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.monitor_database 
Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.add_comms_tracks 


Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.add_sensor_track 


Version: 1 


Locktime 1s: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.add_user_track 


Version: 1 
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Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.delete_the_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.filter_comms_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.filter_sensor_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.monitor_ownship_position 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.update_the_track 
Version: 1 
Locktme is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c31.user_interface.display_graphic_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.display_tracks 
Version: 1 
Locktuume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.emergency_status_screen 
Version: 2 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.get_modification_data 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.get_user_inputs 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.intelligence_report_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.manage_user_interface 
Version: 1 
Lockume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_arrival 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.user_interface.message_arrival_panel 
Version: 2 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_editor 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.resolution_notice_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.status_screen 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface 
Version: 2 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.weapons_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.weapons_systems 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 


Press Return to continue ... 
Running main ddbS53 clo c3i sparc 
Operator: ¢31 


Version: 3 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.prepare_periodic_report 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.decide_for_archiving 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.decide_for_relaying 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.extract_tracks 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_incoming_messages.parse_input_file 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c31.comms_interface.resolve_incoming_messages 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.convert_to_text_file 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.resolve_outgoing_messages.forward_for_translation 
Version: | 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.resolve_outgoing_messages.forward_for_transmission 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.resolve_outgoing_messages.make_routing 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface.resolve_outgoing_messages 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.comms_interface.translate_message 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_interface 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c31.comms_links 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.navigation_system 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensor_interface.analyze_sensor_data 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensor_interface.normalize_sensor_information 
Version: 1 
Lockume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensor_interface.prepare_sensor_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.sensor_interface 
Version: 1 
Locktume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.sensors 


Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 
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Operator: c3i.track_database_manager.monitor_database 
Version: 1 
Lockume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.add_comms_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.track_database_manager.update_tracks.add_sensor_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.add_user_track 
Version: 1] 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.track_database_manager.update_tracks.delete_the_track 
Version: 1 
Lockume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.filter_comms_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.filter_sensor_tracks 
Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.monitor_ownship_position 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks.update_the_track 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager.update_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.track_database_manager 
Version: 1 
Lockume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.display_graphic_tracks 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.display_tracks 
Version: 1 


Locktime is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.emergency_status_screen 
Version: 3 

Lockume is: Wed Dec 31 16:00:00 1969 

Operator: c3i.user_interface.get_modification_data 
Version: 1 

Lockume is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.get_user_inputs 
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Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.intelligence_report_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.manage_user_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c31.user_interface.message_arrival 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_arrival_panel 
Version: 3 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.message_editor 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.resolution_notice_panel 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface.status_screen 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.user_interface 
Version: 3 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.weapons_interface 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


Operator: c3i.weapons_systems 
Version: 1 
Locktime is: Wed Dec 31 16:00:00 1969 


CAPS Engineering Design Database 1991(c) WP.D.A.L.G 
Press Return to continue ... 


3 he he Re he hee ade ah a a a fc ah apc age ae a ac ae a ae cae 2 ae ae a a ae ae icc a a ke a aie ie ae a a ac ade cage ae a age oe a a age ae a a ai a a a ok a oa ok 


echo“*NAVALPOSTGRADUATESCHOOL*” 
echo “ * Software Engineering *” 

echo “ * Design Database *” 

echo “ * Thesis Advisor Dr. Luqi 

echo “ * Written by: Drew Dwyer and Garry Lewis *” 

echo “ * Design Database v1.1 WP.D.A.L.G . *” 


2 He eae ae ae ae ae ae aaa aaa Bh age ae ae ae ae eae ae ae ae ae ae aha ae eae aa ae ae ace a aaa ae 2 ae a a ae 2 2 2 2 a a OK OK 


{7msun53:/n/gemini/work/dwyer/SCCS>>[m exit 
exit 


script done on Tue Sep 3 11:36:13 1991 
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APPENDIX D 
CODE 


A. PREPARATION NOTES 


This code was written using Glockenspiel C++ version 2.0a. 


B. PRINTING NOTES 

This code was prepared for printout using the c++2latex code generator. This 
generator parses the ASCII text input files and places latex commands where directed. This 
makes the code layout more readable and highlights the important data strucutes and key 
words within the C++ code. The latex output was then converted to postscript format with 


the dvitops program. 


C. MAINTENANCE 


This code is maintained at the Naval Postgraduate School Computer Science 


department. 
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feoec. ID.......: 1.3 
//.Release No....: 1 


MPPDOLE.........: : 9/16/91 
Ppeauiior........: : Garry Lewis 

J) ovo eee : Drew Dwyer 
//.Compiler......: Glockenspiel C++ 2.1 
// 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char mainSccslId[] = "@(#)main.cxx 1.3\t9/16/91"; 
// Interface Dependencies ———————_—_______—_____— 


#ifndef _DDBDEFINES_H 
#Hinclude ”ddbdefines.h” 
#Hendif 


#include <Object.h> 
#include <Transaction.h> 
#include <Directory.h> 
#include <GlobalEntities.h> 
#include <Database.h> 
#include <List.h> 

#include <stream.hxx> 


extern "C--" 
#include <stdlib.h> 
#include <stddef.h> 
#include <string.h> 
#include <ctype.h> 


} 


#ifndef _VOBJECTFUNC_H 
#include ’vobjectfunc.h” 
#endif 


#ifndef _E VALUATION _H 
#Hinclude ”evaluation.h” 
#endif 


#Hifndef _PROTFUNC_H 


#include ’protfunc.h” 
#Hendif 
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#Hifndef _CONFFUNC_H 
#Hinclude ”"conffunc.h” 
#tendif 


// End Interface Dependencies —— — — 


Type *«V_-OBJECT _OType; 

Type * THREAD_OType; 

Type «COMPONENT _OType; 
Type * TEXT_OBJECT OType; 
Type *PROTOTYPE_.OType; 
Type *CONFIGURATION_OType; 
Type *DDB_OType; 


Directory *prototype-dir = (Directory*)0; 
Directory +ddbRootDir = (Directory+*)0; 
List «myPrototypeList = (List+)0; 

char +database_name = (char *)0; 

char *«userPtr = (char +)0; 

char *«dirNamePtr = (char *)0; 

void initialize_types(void); 

void setUpDirectory(char *, char *); 


int main(int argc, char *argv(]) 
{ 
dirNamePtr = getenv("PROTOTYPE"); 
userPtr = getenv("USER"); 
Boolean done=FALSE; 
int menu_option=0; 
ifstream inF ile; 


char +function-_tag; 


int number_arguments; 
int run = 0; 


if (argv[1]) 
{ 
database_name = new char{strlen(argv[1})+1); 
strcpy(database_name,argv(1]}); 
if (argv(2}) 
{ 
function_tag = new char{strlen(argv(2})+1]); 


strcpy(function_tag, argv(2]); 


number_arguments = argc - 3; 
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// subtract the "design” “database” & ”function” 
// from the argument(s) we evaluate. 


if (number-_arguments < 0) 
{ 
cerr < "<ERROR: Not enough arguments specified>\n\n" 
<" Format for Usage: \n\n" 
< " designdb dbasename function [argument, ...]\n\n"; 
exit(1); 


if (OC_open(database_name)) 
OC.-transactionStart(); 
initialize_types(); 
set UpDirectory(argv(3], function_tag); 


else 
cerr < "<ERROR: Error attempting to open database " 
< database_name 


< " ---> database does not exist in registry\n\n\n"; 
exit(1); 


if (strlen(function_tag)<3 |] strlen(function_tag)>3) 
{ 
cerr < "<ERROR: illegal function type--> <" 
< function_tag < "> >\n"; 
} 


else 


if (function_tag[0] == ’P’ || function_tag[0]==’p’) 
run = evaluate_prototype function(upper(function tag), 
number_arguments); 
else if (function_tag(0] == ’C’ || function.tag(0]==’c’) 
run=evaluate_configuration function(upper(function_tag), 
number-_arguments); 


else if (function_tag(0] == ’V’ || function. tag(0}==’v’) 
run = evaluate_vobject function(upper(function_tag), 
number_arguments); 
else 


{ 


cerr < "<ERROR: illegal function type--> <"; 
cerr < function._tag < "> >)\n"; 


} 
} 


switch (run) 
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{ 
case LIST.PROTOTYPES: 
list_prot func(number-arguments); 
break; 
case LONG_LIST_PROTOTYPES: 
long_list_prot_func(number_arguments); 
break; 
case GET_PROTOTYPE_LEADER: 
get_prot leader func(number arguments, argv[3]); 
break; 
case DUMP_PROTOTYPESUMMARY: 
dump-prot_summary_func(number_arguments, argv[3}); 
break; 
case GET_PROTOTYPE_DESCRIPTION: 
get_prot description func(number arguments, argv{3}); 
break; 
case RETRIEVE_-PROTOTYPE_DATE: 
retrieve_prot_date func(number arguments, argv[3}); 
break; 
case INSERT_PROTOTYPE: 
insert_prot func(number arguments, argv(3], 
argy[4], argv[5)); 
break; 
case UPDATE-PROTOTYPE-_LEADER: 
update_prot_leader_func(number arguments, 
argv(3}, argv{4)); 
break; 
case UPDATE-PROTOTYPE_DESC: 
update_prot_desc func(number _arguments, 
argv(3}, argv{4]); 
break; 
case UPDATE-PROTOTYPE_NAME: 
update_prot_name.func(number-_arguments, 
argy(3], argv[4)); 
break; 
case DUMP_CONFIGURATION SUMMARY: 
dump-conf_summary_func(number_arguments, 
argv([3],argv[4]); 
break; 
case GET_LATEST_CONFIGURATION: 


gettatest conf func(number_arguments, 


argv[3]); 
break; 


case ADD-_CONFIGURATION-OPERATORS: 

add_conf_operators_func(number_arguments, 
argv[3],argv[4]); 

break; 

case DUMP_CONFIGURATION_OPERATORS: 
dump-conf_operators_func(number_arguments, 

argv[3],argv[4],arev[5)); 

break; 
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case RELEASE-CONFIGURATION_LOCK: 

release_conf lock func(number_arguments, 
argv[3],argv[4]); 

break; 

case LONG_LIST_CONFIGURATION-OPERATORS: 
long_list_conf_operators_func(number-arguments, 

argv[3],argv[4]); 

break; 

case LIST-CONFIGURATION_OPERATORS: 
list-conf_operators_func(number-arguments, 

argv(3],argv[4]); 

break; 

case LIST-CONFIGURATION DEFAULT_OPERATOR: 
list_conf_default_operatorfunc(number-arguments, 

argv[3],argv(4]): 

break; 

case LIST_CONFIGURATIONS: 
list-_conf_func(number-_arguments, argv[3]); 
break; 

case UPDATE-CONFIGURATION_NAME: 
update_conf_name_func(number-arguments, 

argv(3], argv[4], 
argv([5]); 

break; 


case GET_CONFIGURATION_DESCRIPTION: 
get_conf_desc func(number-_arguments, 
argv[3], argv[4]); 
break; 
case INSERT_CONFIGURATION: 
insert_conf_func(number_arguments, argv(3], 
argv(4], argv[5], argv(6]); 
break; 
case UPDATE-CONFIGURATION_DESCRIPTION: 
update_conf_desc func(argv[3], argv(4], 


argv[5]); 
break; 


case GET_CONFIGURATION_MANAGER: 

get_conf_manager_func(number_arguments, 
argv([3], argv[4]); 

break; 

case UPDATE-CONFIGURATION-_MANAGER: 
update_conf_.manager_func(number_arguments, argv(3], 

argv(4], argv[5]); 

break; 

case GET-_CONFIGURATION-_DATE: 
get_conf_date func(number_arguments, 

argv(3], argv[4]); 

break; 

case GET_CONFIGURATION CHANGED: 


case POST_CONFIGURATION _LOG: 
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post _conflog-func(argv(3], argv[4], argv(5]); 
break; 
case GET_-CONFIGURATION_LOG: 
get_conftog_func(number-_arguments, 
argy(3], argv(4]); 
break; 
case ATTACH-OPERATOR: 
attach_vobject to_conf_func(number_arguments, 
argv(3),arev(4), 
argv(5],argv(6)); 


break; 

{f/f —-—A-=—S==-—— A———-—--—- Ae X 
ay 

/{/ VOBJECT CASE STATEMENTS 

// 

/{/ ——-x-——-—--—-— A———-———- », Ce X 


case LIST-OPERATORS: 
list operators func(number-_arguments,argv(3], 
argv[4],argv[5)); 
break; 
case GET_VOBJECT_DESCRIPTION: 
get_vobject_desc_func(number arguments, argv(3], 
argv(4], argv[5]); 
break; 
case UPDATE-VOBJECT_DESCRIPTION: 
update_vobject_desc func(number arguments, 
argv(3], argv(4], 
argv(5], argv(6]): 
break; 
case GET_.VOBJECT_DATE: 
get_vobject_date_func(number-arguments, argv(3], 
argv(4], argv(5]); 
break; 
case GET_VOBJECT_VERSIONS: 
get_vobject_versions func(number arguments, 
argv(3], argv(4]); 
break; 
case GET_VOBJECT_LOCK: 
get_vobject Jock _func(number-_arguments, 
argv(3], argv(4], argv(5]); 
break; 
case GET_VOBJECT_VERSION: 
get_vobject_version func(); 
break; 
case DUMP_VOBJECT SUMMARY: 
dump-_vobject_summary-func(number_arguments, argv(3], 
argv(4], argv[5)); 
break; 
case GET_VOBJECT_POSTSCRIPT: 
get_vobject_psfile func(number arguments, argv(3], 


argv([4], argv(5],argv(6]); 
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break; 
case GET_VOBJECT_GRAPH: 
get_vobject_graphfile func(number-arguments,argv(3], 
argv(4], argv([5],argv(6}); 
break; 
case GET. VOBJECT IMPLEMENTATION: 
get_vobject impfile_func(number_arguments, argv(3], 
argv[4], argv(5],argv(6]); 
break; 
case GET_VOBJECT SPECIFICATION: 
get_vobject-specfile func(number arguments, argv(3], 
argv(4], argv[5],argv[6]); 
break; 
case GET_VOBJECT SOURCE: 
get_vobject sourcefile_func(number-arguments, 
argv(3], argv(4], 
argy[5],argv(6]); 
break; 
case DUMP_VOBJECT-FILES: 
dump-vobject_files func(number-arguments, 
argv([3], argv[4], 
argv(5],argv(6)); 
break; 
case DUMP_VOBJECT-TREE: 
dump-vobject_tree_func(number-_arguments, argv(3], 
argv(4], argv[5],argv(6]); 
break; 
case ADD-VOBJECT_AND-_-SUBTREE: 
add_vobject-and-subtree func(number arguments, 
argv[3],argv[4]); 
break; 
case RELEASE_-OPERATOR-_LOCK: 
release_operator Jock func(number arguments, 
argv(3],argv(4], 
argv[5)); 
break; 


case RELEASESUBTREE-_LOCK: 
release_subtree lock func(number- arguments, 
argv(3],argv(4], 
argv(5]); 
break; 


case LONG_LIST_OPERATORS: 

long_list_operatorsfunc(number_arguments,argv(3], 
argv[4),argv[5)); 

break; 

case LONG-_LIST-CHILDREN: 
long-list_children_func(number_arguments, argv(3], 

argv(4),argv[5)): 

break; 

case LONG_LIST_PARENTS: 
long_list_parents_func(number-arguments,argv(3], 
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argv[4},argv[5}); 
break; 
case ERROR_IN_EVALUATION: 
cerr < "<ERROR: Error returned from evaluation" 
<" function>\n"; 
break; 
default: 
{ 
cerr < "<ERROR: Unknown error with function " 
<" call..switch (rin)-7- > a3 
exit(1); 


} 


OC-transactionCommit(); 
OC-close(database_name); 
cerr < "\n\nDesign Database " 
< "vi.1 Copyright 1991(c) WP.D.A.L.G Inc.\n\n\n"; 
exit (0); 


// END OF MAIN 


void initialize_types(void) 


THREAD_OType=(Type *)OC_lookup("THREAD"); 
COMPONENT_OType=(Type *)OCJookup("COMPONENT"); 
V-OBJECT OType=(Type *)OCJookup("V_OBJECT"); 
TEXT_OBJECT OType=(Type *)OC_lookup("TEXT.OBJECT"); 
PROTOTYPE_OType=(Type +)OClookup("PROTOTYPE" ); 
CONFIGURATION_OType = (Type *)OC_lookup("CONFIGURATION"); 
DDB_OType = (Type *)OC_lookup("DDB"); 


void setUpDirectory(char *protName, char +*func_tag) 


ddbRootDir = (Directory *) OC_lookup(DESIGN_DATABASE_DIRECTORY ); 
if(ddbRootDir) 
{ 


OC-set Working Directory(ddbRootDir); 
my PrototypeList = (List +) OC_lookup(PROTOTYPE_LIST); 


else 
{ 
ddbRootDir = new Directory(DESIGN-_DATABASE_DIRECTORY); 
ddbRootDir — putObject(); 
OC-set WorkingDirectory(ddbRootDir); 
myPrototypeList = new List(OC-string,PROTOTYPE_LIST); 
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myPrototypeList — putObject(); 


char *yourDirChoice; 
if ((stremp(func_tag, LIST-PROTOTYPE_UPC) == 0) || 


(stremp(func.tag, LIST.PROTOTYPE_LC) == 0) || 
(stremp(func_tag, LONG_LIST_PROTOTYPE-_LC) == 0) || 
(stremp(func_tag, LONG_LIST._PROTOTYPE_LC) == 0)) 


return; 


yourDirChoice = new char[1 + strlen(protName) + 5]; 
strcpy(yourDirChoice, protName); 
strcat(yourDirChoice, "-dir"); 


prototype_dir = (Directory +)OC Jookup(yourDirChoice); 


if (('(stremp(func_tag INSERT-PROTOTYPE_UPC))==0) && 


(!(stremp(func_tag INSERT-PROTOTYPE_LC))==0) && 
(!(prototype-dir))) 


cerr < “<ERROR: Prototype " < protName 
<" not found>\n" 
< "<Did you remember to run " 
< “INSERT PROTOTYPE first?>\n"; 
OC.transactionCommit(); __ 
OC.-close(database name); 
exit(0); 


if (!prototype-dir) 


prototype_dir = new Directory(yourDirChoice); 
prototype_dir—putObject(); 
if (!prototype-dir) 

cerr < "Did not setup database directory\n"; 
OC-set Working Directory(prototype-dir); 


OC-set Working Directory(prototype-dir); 
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//.Release No....: 1 


/[-Dateree-..22°9/ 16794 
//.Author........: Garry Lewis 

] [ciancsseneeee..t Drew Dwyer 
//.Compiler......: Glockenspiel C++ 2.1 
lL eae 


#ifndef _COMPONENT_H 
#define _COMPONENT_H 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char COMPONENT_h-Sccsld[] = "©(#)component.h 1.3\t9/16/91"; 
// Contents —————————————————- 


// 
// COMPONENT 
// 


// Description 


// 
// Defines class COMPONENT. 


#include <Type.h> 

#include <List.h> 

#include <Reference.h> 
#include ”ReferenceMacros.h’” 
#include <stream.hxx> 


// End Implementation Dependencies ———————_—_—~ 
// Interface Dependencies ————————_—_—_— —- 
#ifndef _TEXT_OBJECT_H 


#include "text _object.h” 
#endif 


TypeCheckReference(TextObjDictReference, Reference, List); 


// Class // 
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{ 


1% 


class COMPONENT : public Object 
private : 

TextObjDictReference text object list; 
public: 


COMPONENT(); 

COMPONENT(APL #theAPL); 

virtual void Destroy(Boolean abort = FALSE); 
virtual Type +getDirectType(); 

void getComponentNames(); 

Boolean getComponentSource(char*); 
void addTextObject(TEXT_OBJECT «); 
Boolean getPSfile(chars); 

Boolean getGRAPHfile(char+); 

Boolean getSPECfile(char*); 

Boolean getIMPfile(char+); 

Boolean getSOURCEfile(char«); 
~COMPONENT() { Destroy(FALSE); }; 


// Description ————————————————- 


// | 
// Defines an COMPONENT class. The class COMPONENT 1s a derived 
// class of Object. 


i 


// Constructor 


// 

/{ COMPONENT 

// 

// Constructs an COMPONENT object 


// 
//| COMPONENT -APL 


// 

// ONTOS required constructor 
// 

// Public Members 


// 
// Destroy 


// ONTOS heap mangagement method. 

a 

// getDirect Type 

// 

// Return the ONTOS Type of class COMPONENT. 
uh 

// getComponentNames 


[| 


// Display the file names of the file contained in the COMPONENT node 
// 


// getComponentSource 


// Output the contents of an COMPONENT node to files. 


// 
// addTertObject 


// 
// Inserts a tert_object into the COMPONENT node. 


// 
// getPSfile 
// 


// Output the .ps file contained in the COMPONENT node. 

i 

// getGRAPHfile 

// Output the .graph file contained in the COMPONENT node. 
Hy 

// getSPECfile 

// Output the .spec file contained in the COMPONENT node. 


// 
// getIMPfile 


iy 
// Output the .imp file contained in the COMPONENT node. 


// 

// getSOURCEfile 

// 

// Output the .a file contained in the COMPONENT node. 
/ 

// ~COMPONENT 


// 
// Destructor for the COMPONENT class. 


#endif // _COMPONENT.H 
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//.Author........: Garry Lewis 
Oy onc : Drew Dwyer 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char COMPONENT-cxx-_SccsId[] = "@(#) component .cxx 1.3\t9/16/91"; 


// Contents ————— ——__—__ —___ ______________. 


// COMPONENT::COMPONENT ONTOS constructor 
/{/ COMPONENT::COMPONENT constructor 

// COMPONENT: :getDirect Type 

// COMPONENT:: Destroy 

// COMPONENT: :get ComponentNames 

// COMPONENT: :getComponentSource 

// COMPONENT::addTertObject 

// COMPONENT: :getPSfile 

// COMPONENT::getGRA PHfile 

// COMPONENT: :getSPECfile 

// COMPONENT: :getIM Pfile 

// COMPONENT: :getSOURCEfile 

// 

// Description 

// 

// Implementation of class COMPONENT member functions. 


#ifndef _DDBDEFINES_H 
#tinclude ”ddbdefines.h” 
#endif 


#include <Object.h> 
#include <GlobalEntities.h> 


extern "C--" 


{ 


#include <strings.h> 


} 
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#ifndef _TRACER_H 
#include ”tracer.h” 
#tendif 


#ifndef _COMPONENT_H 
#include ” component .h” 
#endif 


// End Implementation Dependenctes—————————— 


extern Type *COMPONENT-_OType; 
extern Type *TEXT_OBJECT_OType; 


// ONTOS required constructor // 


COMPONENT::COMPONENT(APL #theAPL):(theA PL) 
{ 
ie 


// Constructor // 
COMPONENT::COMPONENT() 


// Summary —————————————————- 


// 
// Constructs a persistent COMPONENT object. 


// 


// Parameter 


// 
// None 


// Functional description 


// 


// Creates a list to hold text objects, then reset a reference 
// to potnt to the list. 


init Direct Type(>COMPONENT_OType); 


List +newTextObjList = new List(TEXT_OBJECT _OType); 
new TextObjList — putObject(); 
text object list. Reset(newTextOb)jList, this); 
putObject(); 
}; 
// End Constructor COMPONENT::COMPONENT// 


// Member Function // 


Type COMPONENT: :get Direct Type() 
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// Summary ————————— ————————- 


// 
// returns the ONTOS Type for the COMPONENT class. 


// 


// Return value 


// 
// A potnter to an ONTOS Type. 


return COMPONENT-_OType; 
}; 


// End Member Function COMPONENT: :getDirectType // 
// Member Function // 
void COMPONENT::Destroy(Boolean aborted) 
if(aborted) 
Object::Destroy(aborted); 

} 
// End Member Function COMPONENT:: Destroy ———-—_—-_—_-_-__- 
// Member Function // 
void COMPONENT::getComponentNames() 

// Summary —————————-—-—_-—_-—_-—_-—_-—_--_- 


// 
// Displays the name of each component in an COMPONENT object. 


// 


// Parameter 


// Functional description 


// 


// We get a pointer to the list and then create an tterator 
// for the list. We tterate over each tert object and 
// display the contents of the name field. 


List *my-list = (List*)text_object_list. Binding(this)); 
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ListIterator my-iterator(my- list); 
TEXT_OBJECT *the_text_object; 


while(my_iterator.moreData()) 


the.text object = (TEXT OBJECT*)(Entity*)my iterator(); 
the.text object — display FileName(); 


} 
} 


// End Member Function COMPONENT::getComponentNames —————— 
// Member Function // 


Boolean COMPONENT::getComponentSource(char +*fileMode) 
{ 


List *my-_list = (List+)text_object_list. Binding(this); 
ListIterator my-iterator(my-list); 

TEXT_OBJECT *the_text_object; 

Boolean write_tfailed = FALSE; 

while(my iterator.moreData()) 


the_text_object = (TEXT OBJECT*)(Entity*)my iterator(); 
if ('the_text_object — rebuildTextFile(fileMode)) 
write_failed = TRUE; 


} 
if (write_failed) 
return FAILED; 
else 


return SUCCESS; 
} 


// End Member Function COMPONENT::getComponentSource ——-———- 
// Member Function // 


void COMPONENT::addTextObject(TEXT OBJECT *my text object) 
{ 


List «my-list = (List*)text_objectlist.Binding(this); 
my-list — Insert(my-text_object); 

my-list — putObject(); 

putObject(); 


} 

// End Member Function COMPONENT::addTertObject —————_—_— 
//{ Member Function // 

= COMPONENT: :getPSfile(char *fileMode) 


List *my-list = (List*)text_objectist.Binding(this); 
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} 


ListIterator my_iterator(my-list); 
while(myiterator.moreData()) 


TEXT_OBJECT «the text object = (TEXT OBJECT*)(Entity+)my iterator(); 
char +the-file name = the_text_object—getFileName(); 
the file name=(the filename + 

(strlen(the text object—getFileName())-LENGTH_PS_EXT)); 
if(strcmp(the-filename,PS_EXT)==0) 


if (the text object—rebuildTextFile(fileMode)); 
return SUCCESS; 


} 


} 
//[ End Member Function COMPONENT::getPSfile ———-—_—_-—_—- 


// Member Function // 


Boolean COMPONENT ::getSPECfile(char +fileMode) 
{ 


List «my-_list = (List *)text_object_list. Binding(this); 
ListIterator my-iterator(my-list); 
while(my-_iterator.moreData()) 


TEXT_OBJECT «the text object = (TEXT OBJECT*)(Entity+)my iterator(); 
char +the-filemame = the_text-object—getFileName(); 
the file name=(the filename + 

(strlen(the text object—getFileN ame())-LENGTH_SPEC EXT)); 
if(stremp(the_filename,SPEC_EXT)==0) 


if (the text object—rebuildTextFile(fileMode)) 
return SUCCESS; 


else 


return FAILED; 


} 
//{ End Member Function COMPONENT: :getSPECfile ———-—-—_—-—- 
// Member Function // 
Boolean COMPONENT::getGRAPHfile(char +fileMode) 
List *my-_list = (List*)text_object_list. Binding(this); 


ListIterator my_iterator(my-list); 
while(my iterator.moreData()) 
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TEXT_OBJECT *the text object = (TEXT OBJECT*)(Entity+)my iterator(); 
char +*the_filemame = the_text_object—getFileName(); 
the file name=(the_filename + 

(strlen(the_text object—getF ileName())-LENGTH-GRAPH EXT)); 
if(strcemp(the file name,GRAPH-EXT)==0) 


if (the text _object—rebuildTextFile(fileMode)) 
return SUCCESS; 

else 
return FAILED; 


} 


// End Member Function COMPONENT: :getGRAPHfile ————-——-—- 
// Member Function // 
Boolean COMPONENT: :getIMPfile(char +fileMode) 


List «my-list = (List*)text_object_list. Binding(this); 
ListIterator my-iterator(my-list); 
while(my terator.moreData()) 


TEXT_OBJECT +#the+text object = (TEXT OBJECT*)(Entity+)my iterator(); 
char +the-file name = the_text_object—getFileName(); 
the-file name=(the-file mame + 

(strlen(the text object—getFileName())-LENGTH IMP EXT)); 
if(strcmp(the_file name, IMP_EXT)==0) 


if (the text object—rebuildTextFile(fileMode)) 
return SUCCESS; 

else 
return FAILED; 


} 


// End Member Function COMPONENT::getIMPfile ———-——-—-—- 
//{ Member Function // 
Boolean COMPONENT: :getSOURCEfile(char +*fileMode) 
List *my-list = (List+)text_object_list.Binding(this); 
ListIterator my-iterator(my-list); 
while(my- iterator.moreData()) 
TEXT_OBJECT «thetext object = (TEXT OBJECT*)(Entity+)my iterator(); 


char +the-file name = the_text_object—getFileName(); 
the-file name=(the-file name + 
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(strlen(the text object getFileName())-LENGTH SOURCE_EXT)); 
if(strcmp(the-filename,SOURCE_EXT)==0) 


if (the.text object—rebuildTextFile(fileMode)) 
return SUCCESS; 


else 
return FAILED; 


} 
//{ End Member Function COMPONENT: :getSOURCEfile ——-—_—_-——_- 
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//.Filename......: conffunc.h 

|/ SCGS Teas 

//.Release No....: I 

| [ Délézs... 2229/16/79! 

//.Author........: Garry Lewts 
ws sceeeeetenebee Ly RE (hel) nye Tr 


#tHifndef _CONFFUNC_H 
#Hdefine _CONFFUNC_H 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char conffunc_h_Sccsld[] = "0(#)conffunc.h 1.3\t9/16/91"; 


//{ Contents ———————— —— — —— ————- 
i 
// Prototypes for functions related to manipulating 
// configurations. 


void list_conffunc(int, char *); 
void dump-conf.summary-func(int char *,char *); 
void get latest _conffunc(int, char *); 
void attach_vobject to_conffunc(int,char +, char +, char +, char *); 
void update_confname_func(int, chars*, char+, char*); 
void get_conf_desc func(int, char+, char*); 
void insert-conffunc(int, char+, char+, char*, char); 
void update-conf_desc func(char+, char*, char*); 
void get_conf.manager_func(int, char+, char*); 
void update.conf_manager_func(int, char+*, char*,char+); 
void get_conf_date_func(int, char+, char*); 
void post_conflog_func(char*, char+, char*); 
void get-conf_log_func(int, char+, char); 
void dump-conf_operators_func(int,char +,char +,char *); 
void add-_conf_operators_func(int,char *,char *); 
void release_conflock func(int ,char +,char *); 
void long-_list_conf_operatorsfunc(int,char *,char *); 
void list_conf_operators func(int char *,char *); 
void list_conf_default_operatorfunc(int,char +*,char *); 


//{ Description ————————— —— —————— 


// 
// list.conf_func 


// 
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// Provides a list of configurations associated with a 
[/ designated prototype. 


// 


[/ dump-conf.summary_func 


// 


// Provides summary information of a configuration to 
// to include: creation date, manager, version number and 


// default VOBJECT name, and a description. 
// 


// get-latest_conf_func 


A 


// Provides the name of the most recently added configuration. 


// 


// attach_vobject_to_conf_func 


// 
[/ Attaches an instance of the VOBJECT class to a configuration. 


// 


[/ update_conf_name_func 
// Changes the name of a designated configuration. 
// get-conf_desc_func 


// Provides a description of the designated configuration. 


a 


// insert_conf_func 


[| 


// Creates a new configuration and binds it to a particular 
// prototype. 


// update_conf_desc_func 


v/ 


// Updates the description tert of a designated configuration. 


// 


// get-conf_manager_func 


// 


// Provides a configuration manager’s name. 


// 


/[/ update_conf_-manager_func 

// 

// Changes a configuration manager’s name. 

// get-conf_date_func 

// Provides the creation date of a given configuration. 


// post-conf_log_func 


// Adds a timestamped log entry (translated char string) 
// to a configuration. 


// 
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Vy get_conf_log_func 


// Provides the text of a configuration log. 

// 

/[/ dump-conf_operators_func 

ie 

// Write a copy of the operators in a designated configuration 
// to disk. 

// 

// add_conf_operators_func 

// 

/{ Add operator from disk to a particular configuration in the 
// database. 

Li 


// release_conf_lock_func 

// 

// Provide a method to release locked operators in a given 
// configuration. 


// 


// long_list.conf_operators_func 


// 


// List all the children’s names and version numbers of a 
// given configuration. 


iy 


// list.conf.operators_func 


ih 
// List the immediate children’s name and version number of 
// a given configuration. 


// 


// list_conf_default_operator_func 


// 

// Provides the name and version number of the default VOBJECT 
// assigned to the configuration. 

// 

// End Description ————————————————- 


#endit // —_CONFFUNC_H 
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//.Filename......: conffunc.czz 


//.SCCS ID.......2 1.3 


PAUL OT.......4: : Garry Lewis 
ee aiecseseee : Drew Dwyer 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char conffunc_cxx_SccslId{] = "0(#)conffunc.cxx 1.3\t9/16/91"; 


// Contents ————————_—_—____________-_- 


// 

// list.conf_func 

// dump-conf_summary_func 
// get-latest_conf_func 

// attach_vobject_to_conf_func 
// update_conf_name_func 

// get-conf_desc_func 

// insert_conf_func 

// update_conf_desc_func 

// get-conf_manager_func 

// update_conf-manager_func 
// get-conf_date_func 

// post.conf_log_func 

// get-conf_log_func 

// dump-conf_operators_func 
// add_conf_operators_func 

// release_conf_lock_func 

// long_list.conf_operators_func 
// list.conf_operators_func 

// list.conf_default_operator_func 


#include <stream.hxx> 
#include <Directory.h> 


extern "C--" 


{ 

#Hinclude <sys/time.h> 
#Hinclude <sys/types.h> 
#include <stdlib.h> 
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} 


#ifndef _DIRECTORYH 
#Hinclude "directory .h” 
#endif 


#ifndef _TREE_H 
#Hinclude ”tree.h” 
#tendif 


#Hifndef _TREENODE_H 
#include ”treenode.h” 
#Hendif 


#ifndef _PROTOTYPE_H 
#include ’prototype.h” 
#endif 


#Hifndef _THREAD_H 
#include ’thread.h’” 
#Hendif 


#ifndef _CONFIGURATION_H 
#include ”configuration.h” 
#endif 


#Hifndef _CONFFUNC_H 
#include ’conffunc.h” 
#tendif 


#Hifndef _DDBDEFINES_H 
#Hinclude ”ddbdefines.h’” 
#endif 


PROTOTYPE «protoPtr; 
CONFIGURATION «configurationPtr; 
extern THREAD *threadPtr; 


// End Implementation Dependencies —— 
ifstream inputfile; 


void list_conf_func(int number-arguments, char *arg]) 


{ 


char *prototype_name = new char [strlen(arg1)+5]; 
strcpy(prototype_name,arg]); 
strcat(prototypename,PROTOTYPE_EXT); 


switch (number-arguments) 


{ 


case |: 
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protoPtr = (PROTOTYPE*)OC_lookup(prototype name); 
protoPtr — listConfigurations(); 
break; 
case 3: 
default: 
cerr < "<ERROR: extra arguments in list configurations>\n"; 


} 
} 


void dump-conf.summary-func(int number_arguments, char *argl, char *arg2) 


{ 


char *prototypename = new char ([strlen(argl)+5]; 
strcpy(prototype_name,arg]1); 
strcat(prototype name, PROTOTYPE_EXT); 


switch(number-arguments) 


{ 


case 2: 
protoPtr = (PROTOTYPE*)OC lookup(prototypename); 
if (protoPtr) 


configurationPtr = (CONFIGURATION*)OC_lookup(arg?2); 
if(configurationPtr) 


configurationPtr — dumpConfigSummary(); 


} 


else 
cerr < "<ERROR: " < arg2 <'" configuration not found>\n"; 
cerr < "<Dump configuration operation terminated>\n"; 
return; 


} 
else 
{ 
cerr < "<ERROR: " < arg] <'" prototype not found> \ni! 
cerr < " Dump configuration operation terminated\n'"; 
return; 
} 
break; 
default: 
cerr < "<ERROR: extra arguments in dump configuration summary>\n"; 


} 
} 


void get_latest_conffunc(int number.arguments, char *arg1) 


{ 


char *prototype.name = new char [strlen(arg1)+5]; 
strcpy(prototype_name,arg]); 
strceat(prototype name,PROTOTYPE-EXT); 


151 


switch (number_arguments) 


{ 


case 1: 
protoPtr = (PROTOTYPE+*)OC lookup(prototype_name); 
protoPtr — getDefaultConfigName(); 
break; 
case 3: 
default: 
cerr < "<ERROR: extra arguments in get default configurations>\n"; 


} 
} 


void attach_vobject to_conffunc(int number_arguments,char *proto_name, 
char *config.name,char *operator_name,char *versionstr) 


char *prototype_name = new char [strlen(proto_.name)+5}]; 
strcpy(prototype name,proto_name); 
strcat( prototype name, PROTOTYPE_EXT); 


switch (number-arguments) 


{ 


case 3: 
protoPtr = (PROTOTYPE*)OC_lookup(prototype_name); 
if (protoPtr) 


{ 
threadPtr = (THREAD +)OC Jookup(operator name); 


if (threadPtr) 


{ 
configurationPtr = (CONFIGURATION +*)OC_lookup(config_name); 


if (configurationPtr) 


V_OBJECT *vobjectPtr; 

vobjectPtr = threadPtr—current(); 
configurationPtr—attach VobjecttoConfig(vobject Ptr); 
configurationPtr—putObject(); 


cerr < "<Error getting configuration in attach vobject to config>\n"; 


cerr < "<Error getting thread in ATTACH VOBJECT_TO_CONFIG: >\n"; 


} 


else 


{ 


cerr < "<Error getting Prototype in ATTACH. VOBJECT_TO_CONFIG: >\n"; 


} 
break; 
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case 4: 
protoPtr = (PROTOTYPE*)OC lookup(prototype_name); 
if (protoPtr) 
{ 
threadPtr = (THREAD *)OC lookup(operator name); 
if (threadPtr) 
{ 
configurationPtr = (CONFIGURATION +*)OC-_lookup(config name); 
if (configurationPtr) 


V_OBJECT «vobjectPtr; 

vobjectPtr = threadPtr—version(atoi(versionstr)); 
configuration Ptr— attach VobjecttoConfig(vobjectPtr); 
configurationPtr—putObject(); 


cerr < '"<Error getting configuration in attach vobject to config>\n"; 


cerr < “<Error getting thread in ATTACH.VOBJECT_TO_CONFIG:>\n"; 


} 


else 


{ 


cerr < "<Error getting Prototype in ATTACH. VOBJECT_TO_CONFIG:>\n"; 


break; 
default: 
cerr < "<ERROR: invalid number args for get vobject description>\n"; 


} 


void update_conf_name_func(int number.arguments, char *argl, char *arg2, char xarg3) 
{ 

char *prototype_name = new char ([strlen(arg1)+5]; 

strcpy(prototype_name,arg1); 

strcat(prototype name,PROTOTYPE_EXT); 


switch (number-arguments) 


case 3: 
protoPtr = (PROTOTYPE*)OC_lookup(prototype_name); 
if (protoPtr) 
{ 
configurationPtr = (CONFIGURATION+)OC_lookup(arg2); 
if (configurationPtr) 
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configurationPtr — updateConfigName(arg3); 


} 


else 
{ 
cerr < "<Prototype " < argl < "does not " 
< “contain configuration " < arg2 < ">\n" 
< "<Update configuration Name operation aborted.>\n"; 
break; 


} 
} 
else 
{ 
cerr < "<Prototype "<< argl <" not found>\n" 
< "<update configuration name operation aborted>"; 
} 


break; 
default: 
cerr < "<ERROR: invalid number args for update Config Name>\n"; 


} 


void get_conf_desc_func(int number.arguments, char *argl, char *arg2) 


{ 


char *prototype_name = new char [strlen(arg1)+5]; 
strcpy(prototype_name,arg]1); 
strcat( prototype name, PROTOTYPE_EXT); 


switch (number_arguments) 


{ 


case 2: 
protoPtr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (protoPtr) 


configurationPtr = (CONFIGURATION +*)OC_lookup(arg2); 
if (configurationPtr) 


{ 


configurationPtr — getConfigDescription(); 


} 


else 


{ 


cerr < "<Configuration: " < arg2 <" is not contained " 
< "in prototype rT) < argl < eS nt 
< "<get configuration Description Operation Aborted.>\n"; 


} 


else 


{ 


cerr < "<Prototype " < arg] <" not found>\n" 
< "<get configuration description operation aborted>"; 
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break; 
default: 
cerr < "<ERROR: invalid number args for get configuration description>\n"; 


} 


void insert_conffunc(int number_arguments, char +*argl, char +arg2, char *arg3, char +arg4) 


{ 


char *prototype.name = new char (strlen(arg1)+5); 
strcpy(prototype_name,arg1); 
strcat(prototype name, PROTOTYPE _EXT); 


switch (number-arguments) 


{ 


case 2: 
protoPtr = (PROTOTYPEs)OC lookup(prototype_name); 
if (protoPtr) 


{ 
configurationPtr = (CONFIGURATION +*)OC_lookup(arg2); 


if (!configurationPtr) 


configurationPtr = new CONFIGURATION (arg2); 
protoPtr — addConfiguration(configurationPtr); 


} 


else 
{ 
cerr < "<ERROR: Configuration name " < arg? <'" already exists!>\n"; 
return; 
} 
} 
else 
{ 
cerr < "<Prototype "<< argl <" not found>\n" 
< "“<no Configuration operation conducted>"; 


} 
break; 
case 3: 
protoPtr = (PROTOTYPEs)OC Jookup(prototype_name); 
if (protoPtr) 


{ 
configurationPtr = (CONFIGURATION +#)OC_lookup(arg2); 


if (!configurationPtr) 


configurationPtr = new CONFIGURATION (arg?, arg3); 
protoPtr — addConfiguration(configurationPtr); 


} 


else 


{ 


cerr < "<ERROR: Configuration name " < arg2 <'" already exists!>\n"; 
return; 
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} 


else 


cerr < "<Prototype "<< arg] <" not found>\n" 
< "<no Configuration operation conducted>"; 


break; 

case 4: 
protoPtr = (PROTOTYPE )OC Jookup(prototype_name); 
if (protoPtr) 


{ 
configurationPtr = (CONFIGURATION +*)OCookup(arg2); 


if (!configurationPtr) 


{ 


configurationPtr = new CONFIGURATION (arg?2, arg3); 
inputfile.open(arg4, ios::in); 
if (!inputfile) 


cerr < "<File with config description contents does not exist>)\n" 
< "<Constructing configuration w/Name & Manager only>\n"; 


} 


else 


{ 


configurationPtr — updateConfig Description(arg4 ,inputfile); 


protoPtr — addConfiguration(configurationPtr); 
inputfile.close(); 


else 


{ 
cerr < "<ERROR: Configuration name " < arg2 <'“ already exists!>\n"; 
return; 


} 
} 


else 


{ 


cerr < "<Prototype " < arg] <" not found>\n" 
< “<no Configuration operation conducted>"; 


break; 
default: 

cerr < "<ERROR: invalid number args for insert configuration>\n"; 
} 


void update-conf_desc func(char *arg], char *arg2, char *arg3) 


{ 


char *prototype_name = new char [strlen(arg1)+5); 
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strcpy(prototype_name,arg]1); 
strcat(prototypename,PROTOTYPE_EXT); 


protoPtr = (PROTOTYPE+)OC lookup(prototype_name); 
if (protoPtr) 


configurationPtr = (CONFIGURATION+)OC_lookup(arg2); 
if (configurationPtr) 


inputfile.open(arg3, ios::in); 
if (‘inputfile) 


cerr < "<File with config description contents not found>\n" 
< "<Aborting update configuration operation>\n"; 


else 


{ 


configurationPtr — updateConfigDescription(arg3, inputfile); 
inputfile.close(); 


} 
} 
else 
{ 
cerr < "<Prototype " < argl < "does not " 
< "contain configuration " < arg2 < '">\n" 
< "<Update configuration Description operation aborted.>\n"; 


} 


else 


{ 


cerr < "<Prototype " < arg] <" not found>\n" 
< "<no Configuration operation conducted>"; 


void get-confmanagerfunc(int number_arguments, char *argl, char *arg2) 


{ 


char +prototype.name = new char (strlen(arg1)+5]; 
strcpy(prototype _name,arg]1); 
strcat(prototypename,PROTOTYPE-_EXT); 


switch (number-arguments) 


{ 


case 2: 
protoPtr = (PROTOTYPE*)OC lookup(prototype_name); 
if (protoPtr) 


{ 
configurationPtr = (CONFIGURATION +*)OC_lookup(arg2); 


if (configurationPtr) 


{ 
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configurationPtr — getConfigManager(); 


J 


else 
{ 
cerr < "<Configuration: " < arg2 <<" is not contained " 
< "in prototype ane << argl < ona 
< "<get configuration Manager Operation Aborted.>\n"; 


J 


else 


{ 


cerr < "<Prototype "< arg] <" not found>\n" 
< "<get configuration manager operation aborted>"; 
} 


break; 
default: 
cerr < "<ERROR: invalid number args for insert configuration>\n"; 


} 


void update-conf_manager_func(int number_arguments, char *argl, char +arg2, char *arg3) 


{ 


char +prototype_name = new char [strlen(arg!)+5]; 


strcpy(prototype_name,arg]); 
strcat(prototype name,PROTOTYPE EXT); 


switch (number_arguments) 


{ 


case 3: 
protoPtr = (PROTOTYPE+*)OC lookup(prototype_name); 
if (protoPtr) 


configurationPtr = (CONFIGURATION+)OC_lookup(arg2); 
if (configurationPtr) 


{ 


configurationPtr — updateConfig Manager (arg3); 


J 


else 


{ 


cerr < “<Prototype " < arg] < "does not " 
< “contain configuration " < arg2 < ">\n" 
< "<Update configuration Manager operation aborted.>\n"; 


} 


else 


{ 


cerr < "<Prototype "< arg] <" not found>\n" 
< "“<update configuration Manager operation aborted>"; 


break; 
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default: 
cerr < "<ERROR: invalid number args for update Config Manager>\n"; 


} 


void get_conf_date_func(int number_arguments, char *argl, char *arg2) 


{ 
char *prototypename = new char [strlen(arg1)+5]; 
strcpy(prototype.name,arg]1); 
strcat(prototype name, PROTOTYPE_EXT); 


switch (number_arguments) 


{ 


case 2: 
protoPtr = (PROTOTYPE+)OC lookup(prototype_name); 
if (protoPtr) 


configurationPtr = (CONFIGURATION+)OC_lookup(arg2); 
if (configurationPtr) 


{ 


time_t systemtime = configurationPtr — getConfCreationDate(); 
cout < ctime(&systemtime) < "\n"; 


} 


else 


cerr < "<Configuration " < arg2 <" not found>\n" 
< "“<no Configuration operation conducted>"; 


} 


else 


{ 


cerr < "<Prototype " < arg] <" not found>\n" 
< "<find configuration creation date operation aborted>"; 


break; 
default: 
cerr < "<ERROR: invalid number args to get configuration creation date>\n"; 


} 


void post-_conf_log-func(char *arg1, char *arg2, char *arg3) 
{ 
char *prototype_name = new char [strlen(arg1)+5]; 
strcpy(prototype_name,arg]); 
strcat(prototypename,PROTOTYPE_EXT); 


protoPtr = (PROTOTYPEx*)OC Jookup(prototype name); 
if (protoPtr) 


{ 
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configurationPtr = (CONFIGURATION+s)OC_lookup(arg2); 
if (configurationPtr) 


inputfile.open(arg3, ios::in); 
if (‘inputfile) 


configurationPtr — addtoConfigLog(arg3); 
} 


else 


{ 


configurationPtr — addtoConfigLog(inputfile); 
inputfile.close(); 


} 


else 
{ 
cerr < "<Prototype " < arg] < "does not " 
< "contain configuration " < arg? < pes 
< "<Update configuration Log operation aborted.>\n"; 


} 


else 


{ 


cerr < "<Prototype "<< arg] <" not found>\n" 
< "<no Configuration operation conducted>"; 


void get_conflog-func(int number.arguments, char *arg], char *arg2) 


{ 


char +prototypename = new char [strlen(arg1)+5]; 
strcpy(prototype_name,arg]1); 
strcat(prototype name, PROTOTYPE -EXT); 


switch (number_arguments) 


{ 


case 2: 
protoPtr = (PROTOTYPE )OC lookup(prototype_name); 
if (protoPtr) 


{ 


configurationPtr = (CONFIGURATION +*)OC_lookup(arg2); 
if (configuration Ptr) 


configurationPtr — getConfigLog(); 


} 


else 


{ 


cerr < "<Configuration: " < arg2 <" is not contained " 
< "in prototype " < are! <— "sn 
< "<get configuration log operation aborted.>\n"; 
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cerr < "<Prototype " < arg] <'" not found>\n" 
< "<get configuration log operation aborted>"; 


void dump-conf_operators_func(int number.arguments,char *protoname,char *conf,char 
+file.write_option) 
{ 

char «prototype name = new char [strlen(protoname)-+5]; 

strcpy(prototype name,proto_name); 

strcat(prototype name,PROTOTYPE-EXT); 


switch (number-arguments) 


{ 


case 3: 
protoPtr = (PROTOTYPEx*)OC lookup(prototype_name); 
if (protoPtr) 


{ 


configurationPtr = protoPtr—getConfiguration(conf); 
if (configurationPtr) 


V-OBJECT x*vobjectPtr = configurationPtr— get Default Vobject(); 
if (vobject Ptr) 
{ 
long vobject_locktime =0; 
vobject_locktime = vobject Ptr—get LockTime(); 
if (vobjectlocktime>0) // prevent checkout 


{ 


if (stremp(file-write_option,"w")==0) // change ”w” to ”r” 


cerr < "<ERROR: Module " < vobjectPtr—getNodeName() 
<" locked by : " < vobjectPtr—getWorker() 
<" Resetting write option to read-only>\n"; 
strcpy(file_write_option,"r"); 


cerr << "<Caution: " < vobjectPtr—getNodeName() 
<" is locked.> \n" < "Date Locked: " 
< ctime(&vobject locktime) 
< "Subtree checked out in read-only mode\n"; 
} 
else 
cerr < "NODENAME ---> " < vobjectPtr—getNodeName() 
<"\nVersion: “ < vobjectPtr—getVersionNumber() <"\n\n"; 
Boolean file.operation-successful = FALSE; 
file.operation_successful = 
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vobjectPtr — checkoutCOMPONENTNode(file_write option); 
if ((filecoperation-successful) && 
((strcmp(file_write_option,"W")==0) || 
(stremp(file_-write_option,"w")==0))) 
{ 
vobjectPtr — setLock(); // set root lock 
vobjectPtr — set Worker(); 
vobjectPtr — resetLastOpFalse(); 
vobjectPtr -putObject(); 


if (file-operation successful) 
vobjectPtr — dumpSubtree(file_-writeoption); // dump rest of tree 
else 
cerr < "<Error checking out " < vobjectPtr —getNodeName() 
< " Aborting dump_vobject_tree.func>\n"; 


} 


else 
cerr < "<Error: Wo Vobject is attached to dump configuration>\n"; 


} 


else 


cerr < "<Error getting configuration in dump configuration operators: >\n"; 


else 


{ 
cerr < "<Error getting Prototype in dump configuration operators: >\n"; 


} 
break; 


default: 
cerr < "<ERROR: invalid number args for dump configuration operators>\n"; 


} 
} 


void add-_conf_operators_func(int number-arguments,char *protoname,char *conf) 
{ 
char *prototypename = new char [strlen(protoname)-+5]; 
strcpy(prototy pe _name,proto_.name); 
strcat(prototype name,PROTOTYPE-_EXT); 


switch (number_arguments) 


{ 


case 2: 
protoPtr = (PROTOTYPE*)OC _lookup(prototype_name); 
if (protoPtr) 


{ 


configurationPtr = protoPtr—getConfiguration(conf); 
if (configuration Ptr) 


V-OBJECT *vobjectPtr = configurationPtr— get Default Vobject(); 


162 


if (vobjectPtr) 


DIRECTORY #capsdirectory; 
capsdirectory = new DIRECTORY(); 
char *operator.name = new char [strlen(vobjectPtr—getName())+1]; 
strcpy(operator name, vobjectPtr—getName()); 
capsdirectory—read -directory(operator name); 
capsdirectory—updatetimestamp(); 
TREENODE_inkedlist operatorList = capsdirectory—getOperatorList(); 
TREENODE *rootnode = capsdirectory—find treenode(operator name); 
TREENODE #tree_root = new TREENODE(rootnode,NULL); 
TREE *workingtree = new TREE(tree_root, operator_name); 
workingtree—build_tree(tree root operator List); 
cerr < "CHECKIN--> " < operatorname < "\n"; 
V-OBJECT #new_parent = (V-OBJECT +*)0; 
new_parent= vobjectPtr—getParent(); 
V-OBJECT *new root = tree root—checkin node(new parent); 
if ('new_root) 
{ 
cerr < "<Error: Could not establish new_root in" 
< "add_conf_operators_func. Aborting.>\n"; 
break; 
} 
new root—set NodeName(tree root— getname()); 
tree_root— checkin subtree(new root); 
} 
else 
cerr < "<Error: No Vobject is attached to this configuration>\n"; 


cerr < "<Error getting configuration in list configuration operators: >\n"; 


} 


else 


{ 


cerr < "<Error getting Prototype in list configuration operators: >\n"; 


} 
break; 


default: 
cerr < "<ERROR: invalid number args for list configuration operators>\n"; 


} 
} 


void release_conflock func(int number_arguments, char *proto_name, 
char +conf) 
{ 


char *prototype.name = new char [strlen(proto-name)+5}; 


strcpy(prototype name,proto.name); 
strcat(prototypename,PROTOTYPE-_EXT); 
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switch (number-arguments) 


{ 


case 2: 
protoPtr = (PROTOTYPEs*)OC lookup(prototype.name); 
if (protoPtr) 


configurationPtr = protoPtr—getConfiguration(conf); 
if (configurationPtr) 


V_OBJECT *vobjectPtr = configurationPtr—get Default Vobject(); 
if (vobject Ptr) 


if (vobject Ptr—releaseLock()) 
{ 
vobjectPtr—putObject(); 
vobjectPtr — releaseLockSubtree(); 
} 
} 


else 
cerr <"<Error: No Vobject is attached to this configuration>\n"; 


cerr < "<Error getting configuration in Release configuration Lock:>\n"; 


} 


else 


{ 


cerr < "<Error getting Prototype in Release configuration Lock:>\n"; 


break; 
default: 
cerr < "<ERROR: invalid number args for Release configuration lock>\n"; 
} 
} 


void long_list-conf_operatorsfunc(int number.arguments, char *protoname, 
char +conf) 
{ 


char *prototypename = new char [strlen(proto.name)-+5]; 
strcpy(prototype name,proto_name); 
strcat(prototypename,PROTOTYPE-EXT); 


switch (number-arguments) 


{ 


case 2: 
protoPtr = (PROTOTYPE*)OC lookup(prototype.name); 
if (protoPtr) 


{ 


configurationPtr = protoPtr—getConfiguration(conf); 
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if (configurationPtr) 


V_OBJECT *vobjectPtr = configurationPtr—getDefault Vobject(); 
if (vobjectPtr) 


// cerr << ”Operator: ”; 

// cout << vobjectPir->getName(); 

|| [x 

// J/ following for loop provides spacing... 

|| Af #8 RE 

Ty aivin— 0: 

// for (:=0;i< (PRINT_VERSION_LOCATION-strlen(vobject Ptr-> getName()));i++) 
Comme — 2 

[/ cerr << "Version: ”; 

//[ cout << vobjectPtr->get VersionNumber(); 

PCO UL <aeee\ 1” 

// teme_t locktime = vobjectPtr->getLockTime(); 

// cerr << "Locktime ts: ” << ctime(&locktime). << ”\n’; 


vobjectPtr — longlistOperatorNames(); 


} 


else 
cerr < "<Error: No Vobject is attached to this configuration>\n"; 


cerr < "<Error getting configuration in list configuration operators:>\n"; 


} 


else 


{ 


cerr < "<Error getting Prototype in list configuration operators:>\n"; 


} 
break; 


default: 
cerr < "<ERROR: invalid number args for list configuration operators>\n"; 
} 


void list_conf_operatorsfunc(int number.arguments, char *proto.name, 
char *conf) 
{ 


char *prototypename = new char [strlen(protoname)-+5]; 
strcpy(prototype name,proto_name); 
strcat(prototypename,PROTOTYPE-EXT); 


switch (number-arguments) 


case 2: 


protoPtr = (PROTOTYPE+)OC lookup(prototype_name); 
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if (protoPtr) 


configurationPtr = protoPtr—getConfiguration(conf); 
if (configuration Ptr) 


V-OBJECT +*vobjectPtr = configurationPtr—get Default Vobject(); 
if (vobject Ptr) 


char *«name=vobjectPtr—getName(); 
int version =vobject Ptr—get VersionNumber(); 
cerr < “Operator: "“; 
cout < name; 
[| [## RRR RRR EEE 
// Added following for statement for spacing... 
[| eR ERE RE REE 
int i=0; 
for (i=0;i<(PRINT_VERSION_LOCATION - 
strlen(vobject Ptr—getNodeName()));1++) 
cout << " : 
cerr << "\nVersion: "; 
cout < version < "\n"; 
time.t locktime = vobjectPtr—getLockTime(); 
cerr < "Locktime is: " < ctime(&locktime) < "\n"; 
vobjectPtr — listOperatorNames(); 
} 


else 
cerr < "<Error: No Vobject is attached to this configuration>\n"; 


cerr < "<Error getting configuration in list configuration operators: >\n"; 


} 


else 


{ 


} 
break; 


default: 
cerr < "<ERROR: invalid number args for list configuration operators>\n"; 


} 


cerr < "<Error getting Prototype in list configuration operators:>\n"; 


} 


void list_conf_default_operator_func(int number_arguments, char *protoname, 
char +conf) 
{ 


char +prototype_name = new char [strlen(proto.name)+5]; 
strcpy(prototype name,proto_name); 


strcat(prototype name,PROTOTYPE-EXT); 


switch (number_arguments) 
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{ 


case 2: 
protoPtr = (PROTOTYPE*)OC lookup(prototype_name); 
if (protoPtr) 


{ 
configurationPtr = protoPtr—getConfiguration(conf); 
if (configurationPtr) 


V-OBJECT *vobjectPtr = configurationPtr—get Default Vobject(); 
if (vobjectPtr) 


char *name=vobjectPtr—get Name(); 

int version =vobjectPtr—get VersionNumber(); 

cerr < "Operator: "; 

cout < name; 

| [pop RX 

// Added following for statement for spacing... 

[| ¥e RRR RRR 

int i=0; 

for (=0;1<(PRINT_VERSION_LOCATION - 

strlen(vobject Ptr—getName()));i++) 

COU <6 ts 

cerr < '" Version: '"; 

cout <<" " < version < "\n"; 

} 


else 
cerr < "<Error: No Vobject is attached to this configuration>\n"; 


} 


else 


{ 


cerr < "<Error getting configuration in list " 
< “configuration default operator: >\n"; 


} 


else 


{ 


cerr < "<Error getting Prototype in list " 
< "configuration default operator:>\n"; 
} 


break; 
default: 
cerr < "<ERROR: invalid number args for list " 
< “configuration default operator>\n"; 
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Peeee..........: 

//.Filename......: configuration.h 
ieoOC. ID.......: IES 

//.Release No....: 1 

evate..........: 9/16/91 
//.Author........: Garry Lewis 
ioo-.......... Drew Dwyer 
//.Compiler......: Glockenspiel C++ 2.1 
00 5 eee 


#ifndef _CONFIGURATION_H 
#Hdefine _CONFIGURATION_H 


// SCCS ID follows: will compile to place date/time stamp in object file 


static char configuration_h_Sccsld{] = "0(#)configuration.h 1.3\t9/16/91": 


// Contents ———————————_—_—_—_—__—__—_- 


/ 
// CONFIGURATION 
// 


// Description 


// 
// Defines class CONFIGURATION 


#include <Object.h> 
#include <Reference.h> 
#include <Dictionary.h> 
#include <stream.hxx> 


extern "C--" 


{ 


#Hinclude <sys/time.h> 
#Hinclude <sys/types.h> 


} 


#include ”ReferenceMacros.h” 

// End Implementation Dependencies ——————-—_—-—— 
// Interface Dependencies —————————_———— 

#ifndef _TEXT_OBJECT_H 


#include "text_object.h” 
#endif 
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#ifndef _VERSIONED-OBJECT_H 
#include ”versioned_object.h’” 
#endif 


// End Interface Dependencies ————————_———- 


TypeCheckReference(V ObjectReference, Reference, V OBJECT); 
TypeCheckReference(LogReference, Reference, TEXT OBJECT); 
TypeCheckReference(Desc2Reference, Reference, TEXT OBJECT); 


#define DEFAULT_MANAGER “" 


// Class // 


class CONFIGURATION : public Object 
{ ° 

private: 

char config-status; 

char *config_manager; 

time.t ConfCreationDate; 

int config num_vobjects; 

LogReference config_log_entry; 

Desc2 Reference config_description; 

V_ObjectReference the Versioned Object; 


public: 

CONFIGURATION(APL «); 

CONFIGURATION(char +name, char «manager=>DEFAULT-MANAGER); 
virtual void Destroy(Boolean aborted=FALSE); 
virtual Type *getDirectType(); 

void getConfigName(); 

char *«name(); 

void getConfigStatus(); 

void getConfigManager(); 

void getConfigLog(); 

void getConfigDescription(); 

void dumpConfigSummary(); 

void listConfigOperators(); 

void updateConfigManager(char *new-config_-manager); 
void updateConfigName(char *«new-_config_name); 

void updateConfigStatus(char new_config_status); 

void addtoConfigLog(char *new-_log_entry); 

void addtoConfigLog(ifstream&); 

void updateConfigDescription(char *, ifstream& ); 
V-OBJECT *CONFIGURATION::updateVobjectAttachment(); 
void attach VobjecttoConfig(/ V_-OBJECT*); 

time_t setConfCreationDate(); 

timet getConfCreationDate(); 

V-_OBJECT get Default Vobject(); 
~CONFIGURATION() { Destroy(FALSE); } 
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// Description —————————————————— 


// 


// 
// Defines a CONFIGURATION class. 


// 


// Constructor 


// 
// configuration -APL 


// 

// ONTOS required constructor 

// 

// configuration 

// 

// constructs a configuration object with the given name, 
//{ and manager. 


// 
// Public Members 


// 

// destroy 

// 

// Used to cleanup memory during deletion and transaction aborts. 
// 

// getDirect Type 

// 

// Returns the ONTOS type for this class. 


A 
// getConfigName; 


// Sends the configuration name to standard out. 


// Returns a pointer to the configuration name. 


// 
// getConfigStatus 


// 


// Sends the configuration status to standard out. 


// 
// getConfigManager 


// Sends the manager’s name for this particular configuration. 


// 
// getConfigLog 
// 


// Sends the configuration log to standard out. 


// 


// getConfigDescription 
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// Sends the configuration description to standard output. 


// 
// dumpConfigSummary 


i 
// Provides name, version number of root vobject , date and 
// description of configuration. 


Ml 
// listConfigOperators 
iy 


// list the name of component operators in a configuration. 


// 
// updateConfigManager 


// 


// Changes the manager’s name for this configuration. 


// 
// updateConfigName 


// 


// Changes the configuration name. 


// 
// updateConfigStatus 


// 
// Changes the configuration status field. 


i 
// addtoConfigLog 


ti 


// A log to maintain a history of the configuration. 


i 


// updateConfigDescription 


// 


// Replaces the existing description if one exist or adds a new description. 


// 
// attach VobjecttoConfig 


// 


// Adds a verstoned object to configuration. 


// 
// setConfCreationDate 


// 


// Time stamp this object with the current system time. 


Hi 
// getConfCreationDate 


// 


// Displays the time an instance of this class was created. 


// 
// getDefault Vobject 


// 


// Returns a pointer to the attach vobject. 


i) 


// ~configuration 


// 


// A destructor for the configuration class. 


// 
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rntitoeoorooeroeoeocoerr >" 





dit // _CONFIGURATION_H 
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//.Filename......: : configuration.crz 


}) SCCOMD 4... elie 


//.Author........: Garry Lewis 
(eee rew Dwyer. 


eeereereeoneoeaeeeeee 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char configuration_cxx_SccsId[] = "@(#)configuration.cxx 1.3\t9/16/91"; 


// Contents ———————————— ————_-- 

i 

// CONFIGURATION::CONFIGURATION ONTOS constructor 
// CONFIGURATION::CONFIGURATION new instance 
// CONFIGURATION:: Destroy 

// CONFIGURATION: :getDirect Type 

// CONFIGURATION::getConfigName 

// CONFIGURATION: :name 

// CONFIGURATION: :getConfigStatus 

// CONFIGURATION: :getConfigManager 

// CONFIGURATION: :getConfigLog 

// CONFIGURATION::getConfigDescription 

// CONFIGURATION: :dumpConfigSummary 

// CONFIGURATION: :listConfigOperators 

// CONFIGURATION: : update ConfigManager 

// CONFIGURATION: :updateConfigName 

// CONFIGURATION: :updateConfigStatus 

// CONFIGURATION: :addtoConfigurationLog - string 
// CONFIGURATION::addtoConfigurationLog — file 

// CONFIGURATION::updateConfig Description 

// CONFIGURATION: : attach VobjecttoConfig 

// CONFIGURATION::setConfCreation Date 

// CONFIGURATION: :getConfCreationDate 

// CONFIGURATION: :getDefault Vobject 

// CONFIGURATION::~CONFIGURATION 

ys 

// Description 

As 

// Implementation of class CONFIGURATION member functions. 
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#include <GlobalEntities.h> 
#include <Directory .h> 
#include <stream.hxx> 


extern "C--" 


{ 


#include <string.h> 


} 


// End Implementation Dependencies ——-———-—_-_—- 
ey. Interface Dependenctes ——-—-—-—-——-—_-—__—_-—_—_- 


#ifndef _CONFIGURATION_H 
#Hinclude *configuration.h” 
#endif 


#ifndef _DDBDEFINES_H 
#include ’ddbdefines.h” 
#endif 


// End Interface Dependencies ——-——-——-—_—-—_——- 


extern Type +V_OBJECT_OType; 
extern Type +CONFIGURATION _OType; 


// ONTOS required constructor // 


CONFIGURATION::CONFIGURATION(APL #theAPL) : (theAPL) 


{ 
8 


// New Instance Constructors // 


CONFIGURATION::CONFIGURATION(char name, 


char *manager):(name) 


// Summary ———————————— ——— ———— 


// 
// Constructs a persistent CONFIGURATION object. This object 


// contains management (header information) about a CONFIGURATION 
// and a select group of modules in the configuration. 


// 


// Parameter 


// A pointer to a character string. 


// 


// manager 


// 
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// A pointer to a character string. 


// 


// Functional Description 


Li. 
// Copies the manager’s name into private data member. Initializes 
// the description and log entry to null and creates a dictionary to 


// hold the configuration modules. 


initDirectType(CONFIGURATION_OType); 
config-manager = new char{strlen(manager)+1]; 
strepy(config_manager, manager); 

config.status = A’; 

config-num-vobjects = 0; 

ConfCreationDate = setConfCreation Date(); 
config_description.initToNull(); 
config_log_entry.initToNull(); 
theVersioned_Object.initToNull(); 


putObject(); 


// End Constructor for CONFIGURATION::CONFIGURATION 
// Member Functions // 
void CONFIGURATION ::Destroy(Boolean aborted) 


delete config_manager; 


if (aborted) 
Object::Destroy(aborted); 


} 
Type *CONFIGURATION::getDirectType() 
{ 


return CONFIGURATION_OType; 
} 


void CONFIGURATION: :getConfigName() 
{ 


Directory *directory; 
char *name; 


if(!this) 


cerr < “<ERROR: cannot get the name of a null CONFIGURATION>\n"; 
return; 
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name = Name(); 
OC_getNameComponents(name, &directory, &name); 
cout < name < "\n"; 


} 


char *CONFIGURATION::name() 
{ 


Directory +directory; 
char +name; 


name = Name(); 
OC_getNameComponents(name, &directory, &name); 
return name; 


} 
void CONFIGURATION ::getConfigStatus() 


if(!this) 


cerr < "<ERROR: cannot get the Status of a null Configuration>\n"; 
return; 


} 


cout < config_status < "\n"; 


} 


void CONFIGURATION: :get ConfigManager() 
if(!this) 


cerr << "<ERROR: cannot get the Manager of a null Configuration>\n"; 
return; 


} 


cout < configmanager < "\n"; 


} 


void CONFIGURATION ::getConfigLog() 


if(!this) 


cerr < "<ERROR: cannot dump the Log of a null Configuration>\n"; 
return; 


if (!config_log_entry) 


cerr < "<Cannot display an empty log>\n"; 
return; 


} 


else 


{ 


LEG 


TEXT_OBJECT* myTextObject = (TEXT-OBJECT*)config Jog -entry. Binding(this); 
myTextObject — text(cout); 
} 
} 


void CONFIGURATION: :get Config Description() 
if(!this) 


cerr < "<ERROR: cannot get the description of a null Configuration>\n"; 
return; 


if (!config_description) 
{ 
cerr < “<This configuration does not contain a description>\n"; 
return; 
} 
else 
{ . 
TEXT_OBJECT* myTextObject = (TEXT -OBJECT*)config description.Binding(this); 
my TextObject — text(cout); 


} 


void CONFIGURATION::dumpConfigSummary() 
{ 
int i=0; 
cerr < "Creation Date: '"; 
cout < ctime(&ConfCreationDate) << "\n"; 
cerr << “Manager: '"'; 
getConfigManager(); 
if(!the Versioned_Object) 
{ 
cerr < "VOBJECT Name: "; 
cerr < “NONE ASSIGNED “; 
for (i=0;i< PRINT_VERSION_LOCATION -strlen(“VOBJECT Name: NONE ASSIGNED “);i++) 
cout <<" *: 
cerr < "Version Number: '"; 
cerr < “NONE\n"; 


else 


V-OBJECT *vobjectPtr = (V-OBJECT*) theVersioned Object.Binding(this); 

cerr < “VOBJECT Name: ";: 

cout < vobjectPtr —+getName(); 

for (i=0;i< PRINT_.VERSION_LOCATION - strlen(vobjectPtr—getName());i++) 
cou<" ": 

cerr < “Version Number: "; 


cout < vobjectPtr — get VersionNumber(); 
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cout < "Configuration Description follows: 


get Config Description(); 


void CONFIGURATION: :listConfigOperators() 
if(!the Versioned_Object) 


cerr < "This configuration does not contain a v_object"; 


} 


else 


V_OBJECT *theVObjectPtr = 

(V-_OBJECT*) theVersioned_Object.Binding(this); 
theVObjectPtr — get VObjName(); 
theVObjectPtr — listOperatorNames(); 


} 
} 
void CONFIGURATION::updateConfigManager(char *new_config_manager) 
if(!this) 
cerr < "<ERROR: cannot change the manager of a null CONFIGURATION>\n"; 
return; 
if(config-m anager) 


strcpy(config_manager, ""'); 
config-manager = new char[(strlen(new_config_manager)+1]; 


strcpy(config-manager, new-config_manager); 
putObject(); 


void CONFIGURATION: :updateConfigName(char *new-config_name) 


if(!this) 
cerr < "<ERROR: cannot change the name of a NULL CONFIGURATION>\n”; 
return; 

Name(new-config_-name); 


} 


void CONFIGURATION ::updateConfigStatus(char new_config_status) 
{ 


rio 


if(!this) 


cerr < "<ERROR: cannot change the status of a null CONFIGURATION>\n"; 
return; 


config.status = new-config status; 


} 


void CONFIGURATION ::addtoConfigLog(char *new_log-_entry) 
if(!config_log_entry) 
{ 


TEXT_OBJECT «textObjectPtr = new TEXT OBJECT(); 
textObjectPtr — append(new Jog entry); 
config _log_entry.Reset(textObjectPtr, this); 


else 


TEXT_OBJECT *textObjectPtr = 
(TEXT_OBJECT*) config_log-_entry. Binding(this); 
textObjectPtr — append(new log -entry); 


putObject(); 


void CONFIGURATION: :addtoConfigLog(ifstream& input_file_stream) 
if(!config_log_entry) 
{ 


TEXT_OBJECT *textObjectPtr = new TEXT OBJECT(); 
textObjectPtr — append(input file_stream); 
config_description.Reset(textObjectPtr, this); 


} 
else 
TEXT_OBJECT *textObjectPtr = 
(TEXT_OBJECT*) config_og-_entry. Binding(this); 
textObjectPtr — append(input file stream); 


putObject(); 


void CONFIGURATION::updateConfigDescription(char +fileName, ifstream& input_file_stream) 
if(!config-description) 


TEXT_OBJECT +*textObjectPtr = new TEXT OBJECT(); 
textObjectPtr — append(fileName, input_file_stream); 
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config_description.Reset(textObjectPtr, this); 


} 


else 


TEXT_OBJECT xtextObjectPtr = 
(TEXT-OBJECT*) config-description.Binding(this); 

textObjectPtr — resetTheText(); 

textObjectPtr — append(fileName, inputfile stream); 


putObject(); 


V-OBJECT *CONFIGURATION::updateVobjectAttachment() 


if (!this) 
{ 


cerr < "<ERROR: cannot set the vobject of a null configuration\n"; 
return NULL; 


} 
V_OBJECT *vobjectPtr = getDefault Vobject(); 
if (vobject Ptr) 


THREAD +threadPtr = (THREAD *)OC_lookup(vobject Ptr—getName()); 
if (threadPtr) 


vobjectPtr = threadPtr—current(); 
theVersioned _Object.Reset(vobject Ptr, this); 
putObject(); 


} 


return vobjectPtr; 


} 


void CONFIGURATION: :attach VobjecttoConfig(/ V-OBJECT +*theV Object) 
if ('this) 
{ 


cerr < "<ERROR: cannot set the vobject of a null configuration\n"; 
return; 


} 
if (!theV_Object) 
cerr < "<ERROR: cannot give to a configuration a null v_object>\n"; 
} 
theVersioned_Object.initToNull(); 


theVersioned_Object.Reset(theV Object, this); 
} 


//Member Function // 


timet CONFIGURATION ::setConfCreationDate() 
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time_t mytloc=0; 
time_t theTime; 
return theTime = time(mytloc); 


// Member Function // 
time_t CONFIGURATION ::getConfCreationDate() 
{ 


return ConfCreationDate; 


} 
// Member Function // 


V-OBJECT * CONFIGURATION: :getDefault Vobject() 


return (V_OBJECT *)(Entity +)theVersioned_Object.Binding(this); 


// end functions 
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| oscoh Oe 
//.Filename......: ddbdefines.h 
fpeoCCs ID.......: ee 
//.Release No....: 1 

fy ale..........: : 9/16/91 
//.Author........: : Garry Lewis 


eeoeoeoeonesvesr ever es 


#ifndef _DDBDEFINES_H 
#Hdefine _DDBDEFINES_H 


/[/ SCCS ID follows: will compile to place date/time stamp in object file 
static char ddbdefines_hSccsId[] = "@(#)ddbdefines.h 1.3\t9/16/91"; 


/{ Contents ——————— ——————— ———- 
yy 


//{ Number Defines for Evaluations functions 


ey 


// Description 

// 

// These #defines are all designed just to pass information back and forth 

// between the main program and the modules which evaluate the command line 

// for what function to run. There are basically three types of function 

// arguments CONFIGURATION arguments — beginning with a ’C’, PROTOTYPE 
// arguments — beginning with a ’P’, and VOBJECT functions — beginning 

// with a ’V’. All arguments are exactly 3 characters in length and must 

// conform to one of the valid arguments in the designed interface. All 

// other arguments will be invalid and return <Invalid Function> to the 


// Standard I/O. 
ff 


// NONE 


// 
Vf End Interface Dependencies SS 


#define PRINT CONFIG LOCATION 20 
#define PRINT_VERSION LOCATION 50 
#define MAX-_LINE_LENGTH 1024 
#define COMMAND-TABLE-SIZE 50 
#define SUCCESS TRUE 

#define FAILED FALSE 
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#define LIST.PROTOTYPES 1 

#define LONG_LIST_PROTOTYPES 81230 
#define GET_PROTOTYPE_LEADER 2 
#define GET_PROTOTYPE_DESCRIPTION 3 
#define RETRIEVE-PROTOTYPE_DATE 5 
#define INSERT_PROTOTYPE 6 

#define UPDATE-PROTOTYPE_LEADER 7 
#define UPDATE-PROTOTYPE_DESC 8 
#define UPDATE_PROTOTYPE_NAME 9 
#define GET_LATEST_CONFIGURATION 10 
#define DUMP_PROTOTYPE.SUMMARY 987 


#define LIST.CONFIGURATIONS 21 

#define DUMP_CONFIGURATION_OPERATORS 91372 
#define ADD_CONFIGURATION_OPERATORS 91378 
#define LONG_LIST_-CONFIGURATION_OPERATORS 92351 
#define LIST-CONFIGURATION_DEFAULT-OPERATOR 6189 
#define LIST-CONFIGURATION_OPERATORS 91375 
#define UPDATE-CONFIGURATION_NAME 22 

#define GET_-CONFIGURATION_DESCRIPTION 23 
#define INSERT-CONFIGURATION 24 

#tdefine UPDATE_CONFIGURATION_DESCRIPTION 25 
#tdefine GET_CONFIGURATION.MANAGER 26 

#define UPDATE-CONFIGURATION_MANAGER 27 
#define GET_CONFIGURATION_DATE 28 

#tdefine GET_CONFIGURATION_CHANGED 29 

#define POST_CONFIGURATION_LOG 30 

#define GET._.CONFIGURATION_LOG 31 

#define ATTACH-OPERATOR 32 

#define DUMP_CONFIGURATION SUMMARY 33 

#define RELEASE_CONFIGURATION_LOCK 8124 


#define LIST.OPERATORS 41 

#Hdefine GET_VOBJECT_DESCRIPTION 42 
#define GET_VOBJECT_DATE 43 

#define GET_VOBJECT_VERSIONS 44 
#define GET_VOBJECT_LOCK 45 

#define GET_VOBJECT_VERSION 46 

#define DUMP_VOBJECT_SUM MARY 47 
#define GET_VOBJECT_POSTSCRIPT 48 
#define GET_VOBJECT_GRAPH 49 

#define GET. VOBJECT_IMPLEMENTATION 50 
#define GET_VOBJECT_SPECIFICATION 51 
#define GET.VOBJECT_SOURCE 52 

#define UPDATE_VOBJECT_DESCRIPTION 53 
#define ADD_VOBJECT_AND-_SUBTREE 58 
#define DUMP_VOBJECT_FILES 59 

#define DUMP_VOBJECT_TREE 60 

#define LONG_LIST_CHILDREN 61 

#define LONG_LIST_PARENTS 62 

#define LONG_LIST.OPERATORS 32981 
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#define RELEASE-SUBTREE_LOCK 8281 
#define RELEASE-OPERATOR_LOCK 8992 


#define ERROR_IN- EVALUATION 9999 


#define LENGTH_PS_EXT 3 
#define LENGTH_GRAPHELEXT 6 
#define LENGTH_IMP_EXT 9 
#define LENGTH-SPEC_EXT 10 
#define LENGTH_SOURCE_EXT 2 


#define PS_EXT ".ps" 

#define GRAPH-_EXT “.graph" 
#define IMP_EXT ".imp.psd1" 
#define SPEC_EXT ".spec.psd1" 
#define SOURCE EXT ".a" 


#define DESIGN _DATABASE_DIRECTORY "ADesignDatabase" 
#define PROTOTYPE_LIST "PrototypeList" 

#define LONG_LIST.PROTOTYPE_UPC "PLL" 

#define LONG_LIST.PROTOTYPE_LC "p11" 

#define LIST. PROTOTYPE.UPC "PLN" 

#define LIST. PROTOTYPE_LC "pin" 

#define INSERT. PROTOTYPE_UPC "PIP" 

#define INSERT_-PROTOTYPE_LC "pip" 

#define PROTOTYPE_EXT ".prj" 


#endif // _DDBDEFINES_H 
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//.Release No....: 1 


| [Date ve 9/1679! 

/) Author 7 ‘ Garry Lewis 

| cssisenos eee Drei uigen 
//.Compiler......: Glockenspiel C++ 2.1 
Ly is See 


#ifndef _DIRECTORY_H 
#define _DIRECTORY_H 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char directory_h_SccsId[] = "@(#)directory.h 1.3\t9/16/91"; 


li Contents —— = = a 


// 
// DIRECTORY HEADER 
// 


// Description 


// 
// Defines class DIRECTORY. 


#ifndef _TREENODE_H 
#include ’treenode.h” 
#endif 


// End Interface Dependencies —————————— — 


class DIRECTORY 
{ 
private: 
TREENODE_inkedlist operator_nodes; 


public: 

DIRECTORY() {}; 

void read-directory(char +*root_oper); 
void updatetimestamp(); 

TREENODE +#find_treenode(char +); 
TREENODE_linkedlist getOperatorList(); 
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// Description ———————————————— 


// 
// Defines class DIRECTORY. Class DIRECTORY is a non- 


// persistent class. 


// 


// Constructor 


// 

//| DIRECTORY 
Al 

// Public Members 


// 


// read.directory 


// 
// Read a list of file from a directory defined by the environment 
// variable PROTOTYPE, creates a corresponding list of operator nodes. 


// 


// updatetimestamp 


// Updates the nodes time to reflect the time of the file 
// most recently updated. 


a 
// find_treenode 


le, 


// Find a given node in the list of operator nodes. 


// 


// getOperatorList 


// Returns the operator node list. 
// | 
//{ End Description ——————————————- 


#endif // header file 
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18 pn ere 5 

]/cPilename:....- : directory.crz 

|) SECS 1D ee are ae} 

//.Release No....: 1 

//.Date..........: 9/16/91 

//.Author........: : Garry Lewis 
| Serer ere : Drew Dwyer 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char directory_cxx_Sccsld[{] = "@(#)directory.cxx 1.3\t9/16/91"; 
// Contents ————————————___—_ —__. 


// DIRECTORY: :read_directory 

// DIRECTORY: :updatetimestamp 

// DIRECTORY: :find_treenode 

// DIRECTORY::getOperatorList 

// 

// Description 

// 

// IMPLEMENTS class DIRECTORY CONSTRUCTORS. 


// Interface Dependencies ———————_—_ ——_ ——- 
#include <stream.hxx> 


extern "C--" 

{ 

#include <stddef.h> 
#include <stdlib.h> 
#include <string.h> 
#include <dirent .h> 
#include <sys/stat.h> 
#include <time.h> 


} 


#ifndef _DIRECTORY_H 
#include "directory.h” 
#endif 


#ifndef _DDBDEFINES-_H 

#include ”ddbdefines.h” 

#endif 

// ———- End Interface Dependencies —————— 
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eee 





extern char +dirNamePtr; 


void DIRECTORY::read_directory(char *root_oper) 
{ 


|{ -----------——------——- 


// In body comment: 

[| 

// Here I will create the list to hold those filenames that 

// contain (as a substring) the operator name. This method 

// will also scan those files that do match the pattern input 

// and throw out those with the .ps, .graph, .imp.psdl, .spec.psdl 
// and .a files. What I hope will remain is a list of only those 
// filenames which represent that operator node and it’s 

// assoctated SUBTREE operator nodes. We'll then turn around and 
// process the resulting list into an operator tree structure and 
// compare against the database schema for storage of the 

// -ps, graph, .spec.psdl, .imp.psdl, and .a tert objects into 

// the database as collected sets of COMPONENT objects. 

// 

—<£-——— 


DIR +dirp; 

struct dirent *capsdirent; 

char *path[MAX_LINE_LENGTH]; 
char *pschk = NULL; 

char *graphchk =NULL; 

char *specchk = NULL; 

char *impchk = NULL; 

char *sourcechk =NULL; 
TREENODE *xoperatornode =NULL; 
char *filename = NULL; 
strcpy(path,dirNamePtr); 

dirp = opendir(dirNamePtr); 

int count=0; 


TREENODE +#temp; 


for (capsdirent = readdir(dirp); capsdirent # NULL; 
capsdirent = readdir(dirp)) 
{ 


filename=capsdirent—+d_name; 

pschk = capsdirent —d_name + strlen(capsdirent —-d_name) - 3; 
graphchk = capsdirent +d_name + strlen(capsdirent —d_name) - 6; 
specchk = capsdirent —d_name + strlen(capsdirent —~d_name) - 10; 
impchk = capsdirent —-+d_name + strlen(capsdirent —d_name) - 9; 


sourcechk = capsdirent —d-_name + strlen(capsdirent —~d_name) - 2; 


if (stremp(pschk,". ps")==0) 
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pschk[0} = ’\0’; 

else if (stremp(graphchk,". graph")==0) 
graphchk(0] = ’\0’; 

else if (strcmp(specchk,".spec.psd1")==0) 
specchk[0] = °\0’; 

else if (strcmp(impchk,". imp. psd1")==0) 
impchk{0] = ’\0’; 

else if (strcmp(sourcechk,".a")==0) 


sourcechk[0] = ’\0’; 


if (strncmp(capsdirent —-d_name,root-_oper,strlen(root_-oper))==0) 


if (!(temp=find_treenode(capsdirent—d_name))) 


operatornode = new TREENODE(capsdirent—d_name,NULL); 
operator nodes. insert (operatornode); 
} 
} 


closedir(dirp); 


} 


void DIRECTORY: :updatetimestamp() 
{ 

DIR «*dirp; 

struct dirent +filep; 


struct stat timestats; 


char *psfilename = NULL; 
char *graphfilename = NULL; 
char *specfilename = NULL; 
char *+impfilename = NULL; 
char *sourcefilename = NULL; 
char *path[MAX_LINE_LENGTH]; 
char *node_name = NULL; 
TREENODE «node; 

long temptime = 0; 

long filetime = 0; 

dirp = opendir(dirNamePtr); 


190 


slist.iterator OperatorPtr(operator nodes); 


while (node = OperatorPtr()) 


{ 


node.name = node—getname(); 


psfilename = new char [strlen(node_name)+3}; 
strcpy (psfilename,node_name); 
strcat (psfilename,".ps"); 


graphfilename = new char [strlen(nodename)+6]; 
strcpy (graphfilename,node_name); 
strcat (graphfilename,". graph"); 


impfilename = new char [strlen(nodename)+9}; 
strcpy (impfilename,nodename); 
strcat (impfilename,". imp. psd"); 


specfilename = new char [strlen(node_name)+10]; 
strcpy (specfilename,node_name); 
strcat (specfilename,".spec.psdl1"); 


sourcefilename = new char [strlen(node_name)+2]; 
strcpy (sourcefilename,node_name); 
strcat (sourcefilename,".a"); 


filep = readdir(dirp); 
while ((filep 4 NULL) && ('(stremp/(filep—d_name,psfilename)==0))) 


filep = readdir(dirp); 
} 
if ((filep #4 NULL) && (stremp(filep—dname,psfilename)==0)) 


strepy (path,dirNamePtr); 

strcat (path,"/"); 

strcat (path, filep—dname); 

stat(path,&timestats); 

filetime = timestats.st_ctime; 

temptime = node—get_long_time(); 
node—updatetimestamp(temptime < filetime ? filetime : temptime); 


} 


rewinddir(dirp); 

filep = readdir(dirp); 

while ((filep # NULL) && (!(strcmp/(filep—d_name,graphfilename)==0))) 
filep = readdir(dirp); 


if ((filep # NULL) && (stremp(filep—d_name,graphfilename)==0)) 
{ 
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strcpy (path,dirNamePtr); 

strcati(pathea); 

strcat (path,filep—+d_name); 

stat(path,&timestats); 

filetime = timestats.st_ctime; 

temptime = node—get_long_time(); 
node—-updatetimestamp(temptime < filetime ? filetime : temptime); 


} 


rewinddir(dirp); 

filep = readdir(dirp); 

while ((filep # NULL) && (!(stremp/(filep—d_name,impfilename)==0))) 
{ 


filep = readdir(dirp); 
if ((filep 4 NULL) && (strcmp(filep—d_name,impfilename)==0)) 
{ 


strcpy (path,dirNamePtr); 

Streat (paths, =); 

strcat (path,filep—dmname); 

stat(path ,&timestats); 

filetime = timestats.st_ctime; 

temptime = node—get_long_time(); 
node—updatetimestamp(temptime < filetime ? filetime : temptime); 


} 


rewinddir(dirp); 
filep = readdir(dirp); 
while ((filep # NULL) && (!(stremp(filep—+d_name,specfilename)==0))) 


filep = readdir(dirp); 


if ((filep # NULL) && (strcemp(filep—d_name,specfilename)==0)) 
{ 


strcpy (path,dirNamePtr); 

strcat (path,"/"); 

strcat (path,filep—+dmname); 

stat(path,&timestats); 

filetime = timestats.st_ctime; 

temptime = node—get_long_time(); 
node—updatetimestamp(temptime < filetime ? filetime : temptime); 


} 


rewinddir(dirp); 

filep = readdir(dirp); 

while ((filep # NULL) && (1(stremp(fileprd-name sourcefilename)==0))) 
filep = readdir(dirp); 


if ((filep # NULL) && (stremp(filep—d_name,sourcefilename)==0)) 
{ 
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strcpy (path,dirNamePtr); 

streat (path,"/"); 

strcat (path, filep—dmname); 

stat(path,&timestats); 

filetime = timestats.st_ctime; 

temptime = node—get_long_time(); 
node—updatetimestamp(temptime < filetime ? filetime : temptime); 


rewinddir(dirp); 


closedir(dirp); 


TREENODE *DIRECTORY::find_treenode(char *node_name) 
{ 


slist iterator list iterator(operator_nodes); 
TREENODE «tnode; 
while (tnode=list iterator()) 
if (stremp(tnode—getname(),nodename)==0) 
return tnode; 
return NULL; 


} 


TREENODE_Linkedlist DIRECTORY::getOperator List() 
{ 


return operator_nodes; 


} 
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//.Release No....: 1 

//( Didie2 == : 9/16/91 

| / Author. : Garry Lewis 
| [oscovcerrevsnsl Drew Duyer 


#tifndef _EVALUATION_H 
#tdefine _EVALUATION_H 


// SCCS ID follows: will compile to place date/time stamp in object file 


static char evaluation_h_SccsId[] = "@(#)evaluation.h 1.3\t9/16/91"; 


// Contents ———————————————— ——-- 
// 
// Prototypes of functions to evaluate the command line TAG 
// argument and set the appropriate case statement in main. 


// NONE 
// End Interface Dependencies —— — CO — — — — 


char charupper(char c); 
char *upper(char *argument); 
int evaluate_configuration function(char *function, int arguments); 
int evaluate_vobject function(char *function, int arguments); 
int evaluate_prototypefunction(char +*function, int arguments); 


// Description ——————————_—— —_—_—_—_—_- 


Hy 
// charupper 
ul 


// Converts lower case letters to upper case. 


// 

// upper 

// 

// Converts the command line TAG field to upper case. Calls 
// charupper to convert each letter. 


// 


// evaluate_configuration_function 
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// 


// Determines the appropriate case statement to be executed for 
// database operation pertaining to configurations. 


// 


// evaluate_vobject_function 


// 


// Determines the appropriate case statement to be executed for 
// database operations pertaining to versioned objects. 


// 


// evaluate_prototype_function 


// 


// Determines the appropriate case statement to be erecuted for 
// database operations pertaining to prototypes. 

yy 

// End Description ——————————_—————— 


#endit // _EVALUATION_H 


195 


//.Filename......: evaluation.crz 
| / SCCS AD ee 7 hes 
//.Release No....: 1 

| [Glee : 9/16/91 
//-Author........: Garry Lewts 

[| [icscoseeeeeeeeed Drew Dwyer 


e@eeoeeeererereeoaeeeneoen 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char evaluation.cxx_Sccsld[] = "@(#)evaluation.cxx 1.3\t9/16/91"; 


// Contents —————————————————-- 
[/ 

// charupper 

// upper 

// evaluate_configuration_function 

// evaluate_vobject_function 

// evaluate_prototype_function 


// 


// Description 


// Defines FUNCTIONS FOR SWITCH STMT IN MAIN. 
// 


// This information ts required to evaluate the command 
// line input and reconstruct the proper commands internal 
// to the design database program. 


// Interface Dependencies ——— — 


#ifndef _DDBDEFINES_H 
#include ”ddbdefines.h” 
#endif 


#include <stream.hxx> 
extern "C--" 


{ 


#include <stdlib.h> 
#include <string.h> 
#include <ctype.h> 


} 


#ifndef _E VALUATION _H 
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#tinclude ’evaluation.h” 
tendif 


// End Interface Dependencies ————-——-—-—_————-- 
char charupper(char c) 


return islower(c) ? (c-’a’+’A’): c; // change char to upper case 
Hi 
char *upper(char #argument) 

int i; 


for (i=0; i<strlen(argument); i++) // convert argument to upper case 


argument|i] = charupper(argument[i]); // call charupper to convert each one 
return argument; 


}; 
int evaluate_configuration_function(char +function, int arguments) 
if (stremp(function ,"CLN")==0) 
if (arguments<1 || arguments >1) 


cerr < "<ERROR: Invalid number arguments for List Configurations>\n"; 
return ERROR_IN_EVALUATION; 


} 
else 
return LIST.CONFIGURATIONS,; // tell main() to run List_Prototypes 
else if (stremp(function,"CUN")==0) 
if (arguments<3 || arguments>3) 


cerr < "<ERROR: Invalid number of arguments for Update Configuration Name>\n"; 
return ERROR_IN-EVALUATION; 


} 
return UPDATE-CONFIGURATION_NAME; 
else if (stremp(function,"CGD")==0) 


if (arguments<2 || arguments >2) 


cerr < "<ERROR: Invalid number arguments for Get Configuration Description>\n"; 
return ERROR_IN_EVALUATION,; 


} 
return GET.CONFIGURATION_DESCRIPTION; 


else if (stremp(function,"CIC")==0) 
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if ('arguments>0) 


cerr < "“<ERROR: Not enough arguments for Insert Configuration>\n"; 
return ERROR_IN_EVALUATION; 


} 
return INSERT_CONFIGURATION; 
else if (stremp(function,“CUD")==0) 
if (arguments<3 || arguments>3) 
cerr < "<ERROR: Invalid number arguments for Update Configuration 
Description>\n"; 
return ERROR_IN_EVALUATION; 
} 
return UPDATE_CONFIGURATION_DESCRIPTION; 
else if (stremp(function,“CGM" )==0) 


if (arguments<2 || arguments >2) 


cerr < "<ERROR: Invalid number arguments for Get Configuration Manager>\n"; 
return ERROR_IN_EVALUATION; 


} 
return GET_CONFIGURATION_MANAGER; 
else if (stremp(function ,"CDT")==0) 
if (arguments<3 || arguments>3) 


cerr < "<ERROR: Invalid number arguments for Checkout Configuration>\n"; 
return ERROR_IN-EVALUATION; 


} 
return DUMP_CONFIGURATION_OPERATORS; 
else if (stremp(function,"CRL")==0) 
if (arguments<2 || arguments>2) 


cerr < "<ERROR: Invalid number arguments for Release Configuration Lock>\n"; 
return ERROR_IN-EVALUATION; 


return RELEASE-CONFIGURATION-_LOCK; 
else if (stremp(function,"CAA")==0) 
if (arguments<2 || arguments>2) 


cerr < "<ERROR: Invalid number arguments for Checkin Configuration>\n"; 
return ERROR_IN_EVALUATION; 
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} 
return ADD_CONFIGURATION_OPERATORS; 
else if (strcmp(function,"CLL")==0) 
if (arguments<2 || arguments>2) 


cerr < "<ERROR: Invalid number arguments for List Configuration Operators>\n"; 
return ERROR-_IN_-EVALUATION; 


return LONG_LIST_CONFIGURATION OPERATORS; 
else if (stremp(function,“CLV")==0) 
if (arguments<2 || arguments>2) 


{ 


cerr < “<ERROR: Invalid number arguments for List Default Configuration 
Operator>\n"; 
return ERROR_IN_EVALUATION; 
} 
return LIST_CONFIGURATION_DEFAULT_OPERATOR; 
else if (stremp(function,""CLO")==0) 


if (arguments<2 || arguments>2) 


cerr < "<ERROR: Invalid number arguments for List Configuration Operators>\n"; 


return ERROR_IN-EVALUATION; 
return LIST-CONFIGURATION-OPERATORS; 
else if (stremp(function,"CUM")==0) 
if (arguments<3 || arguments>3) 


cerr < "“<ERROR: Invalid number arguments for Update Configuration Manager>\n"; 
return ERROR_IN_EVALUATION; 


return UPDATE-_CONFIGURATION_MANAGER; 
else if (stremp(function,"CDA")==0) 
if (arguments<2 || arguments >2) 


cerr < "<ERROR: Invalid number of arguments for Get Configuration Date>\n"; 
return ERROR_IN_EVALUATION; 


return GET._.CONFIGURATION_DATE; 


else if (stremp(function,"“CDS")==0) 
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if (arguments<2 || arguments >2) 


{ 


cerr < "<ERROR: Invalid number arguments 
return ERROR_IN-EVALUATION; 


} 
return DUMP_CONFIGURATION SUMMARY; 
else if (stremp(function,"CDC")==0) 
if (arguments<2 || arguments >2) 


cerr < "<ERROR: Invalid number arguments 
return ERROR_IN-EVALUATION; 


} 
return GET_CONFIGURATION_CHANGED; 
else if (stremp(function,"CPL")==0) 
if (arguments<3 || arguments>3) 


cerr < "<ERROR: Invalid number arguments 
return ERROR_IN-_EVALUATION; 


} 
return POST_CONFIGURATION_LOG; 
else if (stremp(function,"CGL" )==0) 
if (arguments<2 || arguments >2) 


cerr < ''<ERROR: Invalid number arguments 
return ERROR_IN-_EVALUATION; 


} 
return GET_CONFIGURATION_LOG; 
else if (stremp(function,"CA0")==0) 
if (arguments<3 || arguments >4) 


cerr < "<ERROR: Not enough arguments for 
return ERROR_IN-EVALUATION; 


return ATTACH-OPERATOR; 
} 


else 


{ 


...Dump Configuration Summary>\n"; 


...Get Last Date Changed>\n"; 


for Post to Configuration Log>\n"; 


for Get Configuration Log>\n"; 


Attach Operators>\n"; 


cerr < “Error in Configuration Command syntax \n\n"; 


} 


int evaluate_vobject function(char *function, int arguments) 
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if (stremp(function,"VLO")==0) 
if (arguments<2 || arguments >3) 


cerr < "<ERROR: Invalid number arguments for List Operators>\n"; 
return ERROR_IN_EVALUATION; 


} 
return LIST.OPERATORS; // tell main() to run List Operators 
else if (strcmp(function,"VUD")==0) 
if (!arguments>0) 


cerr < "<ERROR: Invalid number of arguments for Update VOBJECT Description>\n"; 
return ERROR_IN_EVALUATION; 


return UPDATE_VOBJECT_DESCRIPTION; 
else if (stremp(function,"VGD")==0) 
if (!arguments>0) 


cerr < "<ERROR: Not enough arguments to Get VOBJECT Description>\n"; 
return ERROR.IN-EVALUATION; 


} 
return GET_VOBJECT_DESCRIPTION; 
} 


else if (stremp(function,"VDD")==0) 
if (!arguments>0) 


cerr < "<ERROR: Invalid number of arguments for Get VOBJECT Date>\n"; 
return ERROR_IN-_EVALUATION; 


} 
return GET_VOBJECT_DATE; 
} 


else if (stremp(function,"VGV")==0) 
if (arguments<2 || arguments >2) 


cerr < "<ERROR: Invalid number arguments for Get VOBJECT Versions>\n"; 
return ERROR_IN_EVALUATION; 


} 
return GET_VOBJECT_VERSIONS; 
else if (strcmp(function,"VVV")==0) 


if (arguments<1 || arguments >1) 
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{ 


cerr < "<ERROR: Invalid number of arguments for Get VOBJECT Current Version>\n"; 
return ERROR_IN-EVALUATION; 


} 
return GET_VOBJECT_VERSION; 
} 


else if (stremp(function,"VGL")==0) 
if (arguments <2 || arguments >3) 


{ 


cerr < "<ERROR: Invalid number of arguments for Get VOBJECT Lock>\n"; 
return ERROR_IN_EVALUATION; 


return GET_VOBJECT_LOCK; 
} 


else if (stremp(function,"VDA")==0) 
if (arguments<2 || arguments >3) 


cerr < "<ERROR: Invalid number of arguments for Get VOBJECT Summary>\n"; 
return ERROR_IN_EVALUATION; 


return DUMP_VOBJECT SUMMARY; 
} 


else if (stremp(function,"VGP")==0) 
if (arguments <3 || arguments >4) 


cerr < "<ERROR: Invalid number of arguments for Get VOBJECT Postscript>\n"; 
return ERROR_IN_EVALUATION; 


j 
return GET.VOBJECT-POSTSCRIPT; 
else if (stremp(function,"VGG" )==0) 


if (arguments <3 || arguments >4) 


cerr < "<ERROR: Invalid number of arguments for Get VOBJECT GRAPH>\n"; 
return ERROR_IN-EVALUATION; 


} 
return GET_VOBJECT_GRAPH; 
} 


else if (stremp(function,"VGI")==0) 
{ 


if (arguments <3 || arguments >4) 


cerr < “<ERROR: Invalid number of arguments for Get VOBJECT Implementation>\n"; 
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return ERROR_IN-_EVALUATION; 
} 


return GET_VOBJECT IMPLEMENTATION; 


} 
else if (stremp(function,"VGC" )==0) 
if (arguments <3 || arguments >4) 


cerr < "<ERROR: Invalid number of 
return ERROR_IN-EVALUATION; 


} 
return GET_VOBJECT_SPECIFICATION; 
else if (stremp(function,"VGS")==0) 
if (arguments <3 || arguments >4) 


cerr < "<ERROR: Invalid number of 
return ERROR_IN_EVALUATION; 


return GET_VOBJECT_SOURCE; 
else if (stremp(function,"VDS")==0) 
if (arguments <2 || arguments >3) 


cerr < "<ERROR: Invalid number of 
return ERROR_IN_-EVALUATION,; 


return DUMP_VOBJECTSUMMARY; 
else if (stremp(function,"VAA")==0) 
if (arguments<2 || arguments >3) 


{ 


cerr < "<ERROR: Invalid number of 
return ERROR_IN_EVALUATION; 


return ADD_.VOBJECTANDSUBTREE; 
else if (stremp(function,"VDF")==0) 
if (arguments <3 || arguments >4) 


cerr < "<ERROR: Invalid number of 
return ERROR_IN-_EVALUATION; 


return DUMP_VOBJECT_FILES; 


else if (stremp(function,"VLL")==0) 


arguments 


arguments 


arguments 


arguments 


arguments 
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TOF 


2Or 


for 


for 


for 


Get VOBJECT Specification>\n"; 


Get VOBJECT Source>\n"; 


Dump VOBJECT Source>\n"; 


Add VOBJECT Subtree>\n"; 


Dump VOBJECT FILE(S)>\n"; 


{ 


if (!arguments> 1) 


cerr < "<ERROR: Invalid number of 


return ERROR_IN_EVALUATION; 
return LONG_LIST_OPERATORS; 
else if (stremp(function,"VLO")==0) 


if (!'arguments>1) 


cerr < “<ERROR: Invalid number of 


return ERROR_IN_EVALUATION; 
} 
return LIST-OPERATORS; 
else if (stremp(function,"VLP")==0) 


if ('arguments>1) 


cerr < “"<ERROR: Invalid number of 


return ERROR_IN_EVALUATION; 
} 
return LONG_LIST_PARENTS; 
else if (stremp(function,“VLC")==0) 


if ('arguments>1) 


cerr < “"<ERROR: Invalid number of 


return ERROR_IN-_EVALUATION; 
return LONG_LIST_CHILDREN, 
else if (strcmp(function,"VDT" )==0) 


if (!arguments>1) 


cerr < "<ERROR: Invalid number of 


return ERROR_IN_EVALUATION; 
} 
return DUMP_VOBJECT_TREE; 
else if (strcmp(function,"VRO")==0) 


if (arguments <2 || arguments >3) 


cerr < "<ERROR: Invalid number of 


return ERROR_IN_EVALUATION; 
} 


arguments for 


arguments for 


arguments for 


arguments for 


arguments for 


arguments for 
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long list Operators>\n"; 


list Operators>\n"; 


list Parent/Siblings>\n"; 


list Children>\n"; 


Dump VOBJECT TREE FILE(S)>\n"; 


Release Operator Lock>\n"; 


return RELEASE-OPERATOR_LOCK; 


else if (stremp(function,"VRS")==0) 


if (arguments <2 || arguments >3) 


cerr < "<ERROR: Invalid number of arguments for Release Operator Subtree 


Locks>\n"; 
return ERROR_IN_EVALUATION; 


} 
return RELEASE.SUBTREE_LOCK; 
} 


else 


{ 
} 


cerr < "<<<Error in VOBJECT Command syntax>>> \n\n"; 


}; 
int evaluate_prototype_function(char ¥function, int arguments) 
if (stremp(function,"PLN")==0) 


if (!arguments==0) 


cerr < "<ERROR: Too many arguments for List Prototype Names>\n"; 
return ERROR_IN_EVALUATION; 


} 


else 
return LIST-PROTOTYPES; // tell main() to run List_Prototypes 


else if (stremp(function,"PLL")==0) 
if (larguments==0) 


cerr < "<ERROR: Invalid number of arguments for Long List Prototypes>\n"; 
return ERROR_IN_EVALUATION; 


} 
return LONG_LIST_PROTOTYPES; 
else if (stremp(function,"PDS")==0) 


if (arguments<1 || arguments >1) 


cerr < “"<ERROR: Invalid number of arguments for Dump Prototype Summary>\n"; 
return ERROR_IN_EVALUATION; 


} 
return DUMP_PROTOTYPE.SUMMARY; 
} 
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else if (stremp(function,"PGL")==0) 


if (arguments<1 || arguments >1) 


{ 


cerr < “"<ERROR: Invalid number of arguments for Get Prototype Leader>\n"; 


return ERROR.IN-EVALUATION; 
= GET-_-PROTOTYPE_LEADER; 
else if (stremp(function,"PGD")==0) 
if (arguments<1 || arguments >1) 


cerr < "<ERROR: Invalid number arguments 
return ERRORIN_EVALUATION; 


} 
return GET_.PROTOTYPE_DESCRIPTION; 
else if (stremp(function,"PRD")==0) 
if (arguments<1 || arguments >1) 


{ 


cerr < “<ERROR: Invalid number arguments 
return ERROR_IN_EVALUATION; 


return RETRIEVE-PROTOTYPE-_DATE; 
else if (strcmp(function,"PIP")==0) 
if (!arguments>0) 


cerr < “<ERROR: Invalid number arguments 
return ERROR_IN-EVALUATION; 


} 
return INSERT-_PROTOTYPE; 
else if (stremp(function,"PUL")==0) 
if (arguments<2 || arguments >2) 


{ 


cerr < “<ERROR: Invalid number arguments 
return ERROR_IN_EVALUATION; 


return UPDATE-PROTOTYPE_LEADER; 
else if (strcemp(function,"PUD" )==0) 
if (! arguments==1) 


cerr < "<ERROR: Invalid number arguments 
return ERROR_IN-EVALUATION; 
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for Get Prototype Description>\n"; 


for Retrieve Prototype Date>\n"; 


for Insert Prototype>\n"; 


for Update Leader>\n"; 


for Update Description>\n"; 


} 
return UPDATE-PROTOTYPE_DESC; 
else if (stremp(function,"PUN")==0) 
if (! arguments==1) 


cerr < "<ERROR: Invalid number arguments for Update Name>\n"; 
return ERROR_IN-EVALUATION; 


} 
return UPDATE-_PROTOTYPE_NAME; 
} 


else if (stremp(function,"PGC")==0) 
if (arguments<1 || arguments>1) 


cerr < "<ERROR: Invalid number arguments for DAIS USS EAST Sn Nene ARE 
return ERROR-_IN-EVALUATION; 


return GET_LATEST-CONFIGURATION; 
} 


else 


{ 


cerr < "Error in Prototype Command syntax \n\n"; 


} 
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| OE 
//.Filename......: nodesupport.h 
1 / SCCSYTS.... Aad 
//.Release No....: 1 
//.Daté.....22-29716791 
//.Author........: Garry Lewis 
Le : Drew Dwyer 


eooeweereereoeeeoeoeoEe 


#ifndef _NODESUPPORT_H 
#tdefine _NODESUPPORT_H 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char nodesupport-h_SccsId{| = "@(#)nodesupport.h 1.3\t9/16/91"; 
// Contents ————————————————_- 


// NODESUPPPORT HEADER FILE 
ih 


// Description 


/ 
// SIMPLE NODE SUPPORT Functions 


#ifndef _TREENODE_H 
#include ”treenode.h” 
tendif 


// End Interface Dependencies ae 


TREENODEs root-find(TREENODE Jinkedlist list_to-search, const char str); 
int str_suffix_check(char* str,char ch); 
int proper-super-string(char* str1, char* str2); 
int proper_super NODE check(TREENODE*x node ptr, chars target string); 


// Description ———————— —— ——— ———- 


// 
// root_find 
a 


// Locates the root node associated with given operator name. 


// 
// str_suffizr.check 
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// Locates the suffir of a given string. 


i 


// proper_super_string 


ui 


// Determines whether one string is a prefiz of another string 
// (1.e., one operator is the child of another operator). 


// 
// proper.super-.NODE_check 


// 


// Determines whether a given node should be added to the childlist 
// of a given operator name. 

// 

/{ End Description ———————_———_—————- 


#endif // end nodesupport header file 
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//.Author........: Garry Lewis 

| [secsercoeccors.? DreweDwyer 
//.Compiler......: Glockenspiel C++ 2.1 
Vici nicotene 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char nodesupport_cxx_SccsId{] = "@(#)nodesupport.cxx 1.3\t9/16/91"; 


// Contents ——————————_—__ ——— ———- 


// 

// root_find 

// str-suffir_check 

// proper_super_string 

// proper.super.NODE_check 


extern "C--" 


{ 


#include <string.h> 


} 


#ifndef _NODESUPPORT_H 
#include “nodesupport.h” 
#endif 


// End Interface Dependencies ——-—————_-———-—- 


TREENODEs root find(TREENODE inkedlist list to-search, const chars str) 


/{ Summary ——————————————-———- 


// 
// this function returns the address of the NODE in the list 
// that has tts operator_.name matching *str. 


// 
/[/ End Summary ————————————————- 


{ 


slist iterator ret node(list_to-search); 
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TREENODEs node; 
while (ret _node()) 
{ 


node = ret_node(); 
if ( !strcmp(str,node—getname() ) ) return node; 


return NULL; 
} 


int str_suffix_check(char* str,char ch) 


// this function checks to see if the char at address str is ch 
// and that ch only appears in the string *str at this position. 


// Thus «str with ch = ’.’ is of the form ”.erample with no more 
// periods” . 


// 
a End Summary —_—— 


if (str # ch ) return 0; 
else // check for ”ch” in rest of string 


if (strchr(str+1, ch ) ) return 0; 
else return 1; 


} 


int proper-super-string(chars strl, chars str2) 


// Summary —————————————————-- 

// 

// This function checks to see if str1 is a candidate to be a 
// child of str2 in the multi-way tree. 


Mh 
// End Summary —————————— —————— 


// check to see if str2 is a prefix of str1 
if (str1 # strstr(str1,str2) ) 

return 0; 
else 


char* loc = strl + strlen(str2); 


return str_suffix_check(loc , ’.’); 


} 


Zl 


int proper_-super NODE -check(TREENODEs node ptr, chars target string) 


// Summary ———————————— ——— ——- 


// 

// This functions checks to see tf the NODE returned by 

// ListIterator should be added to the child_list of the NODE 
// associated with target string. It return a 1 tf tt should. 


// 
// End Summary ————————————-—---—— 


{ 


return proper-super-string(node ptr—getname(), target string) ; 


} 
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//.Filename......: : protfunc.h 
esOCo 1D.......: eS 
//.Release No....: 1 


PEAHOGLE..........: » 9/16/91 
Vy Aithor........: : Garry Lewis 
Me... --.-: : Drew Dwyer 


//.Compiler......: Glockenspiel C++ 2.1 


#ifndef _PROTFUNC_H 
#define _PROTFUNC_H 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char protfunc_h_SccsId[] = "0(#)protfunc.h 1.3\t9/16/91"; 


// Contents ————————————— —— ————_—— 


// Prototypes for functions related to manipulating 
// instances of the class PROTOTYPE. 


void list_prot_func(int); 
void long-_list_prot_func(int); 
void get_prot_leader func(int, chars): 
void get_prot_description func(int, char); 
void dump-prot-summary-func(int, char *); 
void retrieve_prot date func(int, char+); 
void insert _prot_func(int, char+, char+, char*); 
void update-prot leader func(int, char+, char*); 
void update-_prot_desc func(int, char*, char*); 
void update_prot name-func(int, char*, char*); 


// Description ————————————— ——_————- 
// list_prot_func 


// Provide the name of prototypes in the design database. 


// 

// long_list_prot_func 

// 

// Provides a list of all prototypes, the default configuration 
// assigned to a prototype and the version number of the root 
// versioned object. 


// 


// get-prot_leader_func 
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// 


// Provides the name of the leader assigned to a prototype. 


a 


// get-prot_description_func 


// 


// Provides the description of a given prototype. 


// 


// dump-_prot.summary-_func 


// 
// Provides a summary of the prototype. Include creation date, 
// leader, default configuration, and a description. 


// 


// retrieve_prot_date_func 


// 


// Provides the creation date. 


// 


// insert_prot_func 


// 


// Creates a new prototype in the database. 


// 


// update_prot_leader_func 


// 


// Changes the prototype leader’s name. 


// 


// update_prot.desc_func 


// 


// Changes the description of a prototype. 


// 


// update_prot_name_func 


// 


// Changes the prototype name. 
// 
// End Description ————————— ———— —— ———- 


#endit // _PROTFUNC_H 
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//.Author........: Garry Lewis 
|) oon : Drew Dwyer 
//.Compiler......: : Glockenspiel C++ 2.1 


eaeenenenewreseenaezne 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char protfunc_cxx_SccsId{] = "@(#)protfunc.cxx 1.3\t9/16/91"; 


// Contents ——————_—_—_—_—__—_—_—_—_—_——- 
// 

// lst_prot.func 

// long_list_prot_func 

// get-protleader_func 

// get-prot_description_func 
// dump_prot.summary-_func 
// retrieve_prot.date_func 
// insert_prot_func 

// update_prot_leader_func 
// update_prot_desc_func 

// update_prot_name_func 


#ifndef _DDBDEFINES_H 
#include ”ddbdefines.h” 
#tendif 


#include <stream.hxx> 
#include <List.h> 
#include <Directory.h> 


extern ''C--" 


{ 


#include <sys/time.h> 
#include <sys/types.h> 


} 


#ifndef _PROTOTYPE_H 
#include ”prototype.h” 
#endif 
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// End Implementation Dependenctes———————_———- 


// Interface Dependencies ——————_—_—__—-——_——— 


#ifndef _PROTFUNC_H 
#include ”protfunc.h” 
#endif 


// End Interface Dependencies ————————__—_—_—— 


extern List «my PrototypeList; 
extern char +«ddbRootDir; 
PROTOTYPE «prototypePtr; 
ifstream inFile; 


void list_prot_func(int number_arguments) 


{ 


switch (number-arguments) 


{ 


case 0: 


OC-set WorkingDirectory(ddbRootDir); 
ListIterator my-iterate(my PrototypeList); 
while(my-iterate.moreData()) 


cout < (char +)my-iterate() << "\n"; 
} 
} 
break; 
default: 
cerr < "<ERROR: problem listing prototypes in database>\n"; 


} 
} 


void long-list_prot-func(int number-arguments) 
{ 

char *protoname = (char *)0; 

char *configname = (char *)0; 

switch (number-arguments) 


{ 


case 0): 
{ 

OC-set WorkingDirectory(ddbRootDir); 
List &protoReference = *myPrototypeList; 
List *protonames = (List*)0; 
protonames = new List(protoReference); 
ListIterator my -iterate(proto_names); 
while(my-_iterate.moreData()) 
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Directory *prototype_dir=(Directory*)0; 
char *protoname = (char +)0; 
char *name = (char *)0; 
proto name = (char *)my-iterate(); 
name = new char [strlen(protoname)-+5]; 
strcpy(name,proto.name); 
strcat(name,"_dir"); 
prototype.dir = (Directory *)OClookup(name); 
if (prototype-dir) 
OC-set Working Directory(prototype-dir); 
char *prototypename = new char {strlen(protoname)+5]; 
strcpy(prototype_name,protoname); 
strcat( prototype name,PROTOTYPE_EXT); 
prototypePtr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypePtr) 


CONFIGURATION sconfigPtr; 
configPtr = prototypePtr—getDefaultConfiguration(); 
if (configPtr) 


configname =new char [strlen(configPtr—name()+1)]; 
strcpy(configname,configPtr—-name()); 


else 

{ 
configname =new char [5]; 
strcpy(configname,"NONE"): 


cerr << "Name: "; 

cout < proto.name; 

int 1=0; 

for (i=0;1<(PRINT_CONFIG-LOCATION-strlen(proto name));i++) 
coul <7 "5 

cerr < "Default Config: "; 

cout < configname; 

for 1=0;1<(PRINT_VERSION_LOCATION- 

(PRINT_CONFIG_LOCATION -+strlen(configname)));i++) 

cou<" "; 

cerr < "Version: "; 

V-OBJECT *vobjectPtr = prototypePtr—get Vobject(); 

if (vobjectPtr) 


int version = vobject Ptr—get VersionNumber(); 
cout < version < "\n";; 
} 
else 
cout < "NONE \n"; 
delete name; 
delete configname; 


} 


fa) fh 


} 
break; 


default: 
cerr < "<ERROR: problem long listing prototypes in database>\n"; 
} 
} 


void get_prot_leader func(int number_arguments, char +*arg1) 


switch (number-arguments) 


{ 


case 1: 
char *+prototypename = new char [strlen(arg1)+5]; 
strcpy(prototype_name,arg1); 
strcat(prototype name, PROTOTYPE EXT); 
prototypePtr = (PROTOTYPE+*)OC Jookup(prototype_name); 
prototypePtr — getPrototypeLeader(); 
break; 

default: 
cerr < "<ERROR: extra arguments in get description call\n"; 


} 


void get_prot-description func(int number-arguments, char *arg]1) 


switch (number-arguments) 


case |: 
char +prototype_name = new char [strlen(arg1)+5]; 
strcpy(prototype_name,arg1); 
strcat(prototype name,PROTOTYPE-_EXT); 
prototypePtr = (PROTOTYPE+)OC lookup(prototype_name); 
prototypePtr — getPrototypeDescription(); 
break; 
default: 
cerr < "<ERROR: extra arguments in get description call\n"; 
} 
} 


void dump-prot-summary-func(int number_arguments, char *arg1) 


switch (number-arguments) 


{ 


case |: 
char *prototypename = new char [strlen(arg1)+5]; 
strcpy(prototype_name,arg]1); 
strcat(prototype name, PROTOTYPE_EXT); 
prototypePtr = (PROTOTYPE*)OC lookup(prototypename); 
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prototypePtr — dumpPrototypeSummary(); 
break; 
default: 
cerr < "<ERROR: extra arguments in dump Prototype Summary call\n"; 


} 


void retrieve _prot_date func(int number-arguments, char *arg1) 


{ 


switch (number_arguments) 

{ 

case |: 
char *prototype_-name = new char [strlen(arg1)+5]; 
strcpy(prototype_name,arg]1); 
strcat(prototype name, PROTOTYPE _EXT); 
prototypePtr = (PROTOTYPEs)OC lookup(prototype_name); 
if (prototypePtr) 


time_t protTime = prototypePtr — getProtCreationDate(); 
cout < ctime(&protTime) < "\n"; 


} 


else 
{ 
cerr < "<Prototype "<< argl <'" not found>\n" 
< "<find prototype creation date operation aborted>"; 
} 


break; 
default: 
cerr < "<ERROR: invalid number args for prototype time retrieval>\n"; 


} 


void insert_prot func(int number_arguments, char *argl, char *arg2, char *arg3) 
{ 
char *prototype_name = new char [strlen(arg1)+5]; 
strcpy(prototype_name,arg1); 
strcat(prototype name, PROTOTYPE-_EXT); 


prototypePtr = (PROTOTYPE +*)OC-_lookup(prototype_name); 
if (!prototypePtr) 


switch (number_arguments) 

{ 

case |: 
prototypePtr = new PROTOTYPE(prototype name); 
OC-set WorkingDirectory(ddbRootDir); 
myPrototypeList — Insert(arg1); 
my PrototypeList — putObject(); 
break; 
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case 2: 
case 3: 
prototypePtr = new PROTOTYPE(prototype_name, arg2); 
inFile.open(arg3, ios::in); 
if (inFile) 
prototypePtr — updatePrototypeDescription(arg3,inFile); 
OC-set Working Directory(ddbRootDir); 
myPrototypeList — Insert(arg1); 
myPrototypeList — putObject(); 
inFile.close(); 
break; 
default: 
cerr < "<ERROR: invalid number args for insert prototype>\n"; 


} 


else 


{ 
cerr < "<NOTE: "<< arg] <" already exists!>\n"; 
return; 


} 


void update_prot leader _func(int number-_arguments, char *argl, char *arg2) 


switch (number-arguments) 


{ 


case 2: 
char *prototype_name = new char [strlen(arg1)+5]; 
strcpy(prototype_name,arg1); 
strcat(prototype name, PROTOTYPE EXT); 
prototypePtr = (PROTOTYPE*)OC lookup(prototype_name); 
prototypePtr — changePrototypeLeader(arg2); 
break; 
default: 
cerr < "<ERROR: invalid number args for update Leader>\n"; 
} 


void update_prot desc func(int number_arguments, char +arg1, char *arg2) 
switch (number-arguments) 
{ 


case 2: 


inFile.open(arg?2,ios::in); 


if (linFile) 


cerr < "File with description contents does not exist\n" 
< “Aborting prototype updatedescription\n"; 
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else 


char +prototypename = new char [strlen(arg1)+5]; 
strcpy(prototype_name,arg]); 
strcat(prototypename,PROTOTYPE_EXT); 

prototypePtr = (PROTOTYPE+)OC lookup(prototype_name); 
prototypePtr — updatePrototypeDescription(arg2,inFile); 
inFile.close(); 


break; 
} 
default: 
cerr < “<ERROR: invalid number args for update description>\n"; 
} 


void update_prot name-func(int number-_arguments, char *arg1, char *arg2) 


{ 


switch (number-arguments) 

{ 

case 2: 
char *prototypename = new char [strlen(arg1)+5]; 
strcpy(prototype_name,arg]); 
strcat(prototypename,PROTOTYPE_EXT); 
char *new-prototype.name = new char [strlen(arg2)+5]; 
strcpy(new prototype _name,arg2); 
strcat(new prototype name, PROTOTYPE_EXT); 
prototypePtr = (PROTOTYPE*)OC lookup(prototype_name); 
prototypePtr — changePrototypeName(new-_prototype_name); 
break; 

default: 
cerr < "<ERROR: invalid number args for update Name>\n"; 


} 


Jepag 


//.Author........: Garry Lewis 
Lhiaweteeee : Drew Dwyer 


eeseceoeeeeeet eves 


#ifndef _PROTOTYPE-_H 
#Hdefine _PROTOTYPE-_H 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char prototype_h.SccsId{] = "@(#)prototype.h 1.3\t9/16/91"; 
// Contents ————————— ————————- 


// 
// PROTOTYPE 
iW 


// Description 


// 
// Defines class PROTOTYPE. 


i Interface Dependencies SS ee ee 


#include <Object.h> 
#include <Dictionary.h> 
#include <Reference.h> 
#Hinclude ”ReferenceMacros.h” 


extern "C--" 


{ 


#Hinclude <sys/time.h> 
#include <sys/types.h> 


} 


#ifndef _TEXT_OBJECT_H 
#include "text_object.h” 
#tendif 


#ifndef _CONFIGURATION-H 


#include ’configuration.h” 
#endif 


wae 


TypeCheckReference(ConfDictReference, Reference, Dictionary); 
TypeCheckReference(TextObjectReference, Reference, TEXT -OBJECT); 
TypeCheckReference(DefaultConfReference, Reference, CONFIGURATION); 


// End Interface Dependenctes ————-—-—_—_—_—__—_—-- 


#define DEFAULT _NAME "" 


// Class // 


class PROTOTYPE : public Object 
{ ° 
private: 
char *protleader; 
int protDictIndex; 
time_t protCreationDate; 
TextObjectReference protdescription; 
ConfDictReference prot-configuration ist; //points to a Dictionary 
DefaultConfReference prot_default_configuration; 


public: 
PROTOTYPE(APL +); 
PROTOTYPE(char +*prototype_name, 

char *prototypeleader=DEFAULT NAME); 
virtual void Destroy(Boolean aborted=FALSE); 
virtual Type *getDirectType(); 
char +get Name(); 
char +getConfigName(); 
void get PrototypeName(); 
void getPrototypeLeader(); 
void get PrototypeDescription(); 
void changePrototypeName(char *new_prototype.name); 
void changePrototypeLeader(char *new_prototype_leader); 
void updatePrototypeDescription(chars, ifstream&); 
void dumpPrototypeSummary(); 
void addConfiguration(CONFIGURATION «configuration); 
void listConfigurations(); 
time-t set ProtCreationDate(); 
time_t getProtCreationDate(); 
void getDefaultConfigName(); 
CONFIGURATION ¥*getConfiguration(char *); 
CONFIGURATION get DefaultConfiguration(); 
V-OBJECT *getVobject(); 
~PROTOTYPE() { Destroy(FALSE); } 


}; 
// Description ————————————— ———- 


// 
// Defines a PROTOTYPE class. 
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// 
// Constructor 


// 
// prototype -APL 


// 
// ONTOS required constructor 


// 

// prototype 

// 

// Constructs a prototype object from the given name, 
// and optional team leader of the prototype. 


i 
// Public Members 


// 
// Destroy 


// used to cleanup memory during deletion and aborts. 


// 
// getDirectType 


he 
// Return the ONTOS Type of class PROTOTYPE. 


// 
// getName 


// 


// Returns a character string containing the name of the prototype 


// 
// getConfigName 


yy 


// Returns a character string containing the last configuration 
// worked on by a user 


// 
// getPrototypeName 


// 


// Prints the prototype name to standard output 


// 


// getPrototypeLeader 


// 


// Displays the prototype designer team leader’s name. 


// 


// getPrototypeProtdescription 


// 


// Displays a protdescription of the prototype. 


// 
// changePrototypeName 


// 
// Change the name of the prototype. 


i 


// changePrototypeLeader 


// Change the prototype leader’s name. 


// 
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// update PrototypeProtdescription 


// 
// Adds a protdescription to a PROTOTYPE object. 


// 


//{ dumpPrototypeSummary 


// 
// Provides date created, leader, default configuration, 
// and description of a prototype. 


[| 
// addConfiguration 
// Adds a configuration with a given name to the prototype 


// listConfigurations 


// 


// List the names of all the configurations in the prototype. 


// getDefaultConfigName 
// 


// Displays the name of the default configuration. 


// 


// getConfiguration 
// 


// Used by this class as a support function to update the default 
// configuration. 


// 
// getDefaultConfiguration 
/| 


// returns a potnter to the default Configuration 


// 
// get Vobject 


// 
// returns the most current root VOBJECT (Operator or Type) 
// assoctated with a prototype. 


/| 
// ~prototype 


// 


// The class destructor. 


#endit // _PROTOTYPE_H 
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//.Filename......: : prototype. czz 

y | oCES 1D era. 3 

//.Release No....: 1 

| {Dialers : 9/16/91 
//.Author........: Garry Lewts 

je] eRe 3 : Drew Dwyer 
//.Compiler......: Glockensptel C++ 2.1 
EE 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char prototype_cxx_SccsId[] = "@(#)prototype.cxx 1.3\t9/16/91"; 


// Contents —————————_—_—_—_—_—_—_—_—_- 


// PROTOTYPE::PROTOTYPE ONTOS constructor 
/[ PROTOTYPE::PROTOTYPE constructor 
/[[ PROTOTYPE:: Destroy 

// PROTOTYPE::getDirect Type 

// PROTOTYPE: :getName 

// PROTOTYPE: :getConfigName 

//{/ PROTOTYPE: :getPrototypeName 

// PROTOTYPE::getPrototypeLeader 

// PROTOTYPE::getPrototypeDescription 

// PROTOTYPE::changePrototypeName 

// PROTOTYPE::changePrototypeLeader 

// PROTOTYPE: :updatePrototypeDescription 
// PROTOTYPE::dumpPrototypeSummary 
// PROTOTYPE::addConfiguration 

// PROTOTYPE::listConfigurations 

// PROTOTYPE::setProtCreationDate 

// PROTOTYPE::getProtCreationDate 

// PROTOTYPE::getDefaultConfigName 

// PROTOTYPE::getConfiguration 

// PROTOTYPE::getDefaultConfiguration 

// PROTOTYPE::get Vobject 

// 

// Description 

// 

// Implementation of class PROTOTYPE member functions. 


#include <GlobalEntities.h> 
#include <Directory .h> 
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#include <stream.hxx> 


extern "C--" 


{ 


#include <sys/time.h> 
#include <strings.h> 


} 


#ifndef _PROTOTYPE_H 
#include ”prototype.h” 
#endif 


J) End Interface Dependencies ————_—_-—_—_—_—_—_—- 


extern Type sPROTOTYPE-_OType; 
extern Type +CONFIGURATION_OType; 


// ONTOS required constructor // 


PROTOTYPE::PROTOTYPE(APL *theAPL) : (theAPL) 


{ 
ik 


// New Instance Constructor // 


PROTOTYPE::PROTOTYPE(char *prototypename, 
char ¥prototype_leader) : (prototype_name) 


// Summary ———————————— ————— —— 

iW 

// Constructs a persistent prototype object. A PROTOTYPE object 
// contains general management information about a prototype and 
// a reference to a container holding configuration objects. 


// 


// Parameter 


// 


// prototype_name 


// A pointer to a character string. 


// 


// prototype_leader 


// 


// A pointer to a character string. 


My 


// Functional Description 

// 

// Passes the object name to class Object. Coptes the leader’s name 
[/ into private data members. We initialize the description to null 
// and create a dictionary to hold various configurations. 


i 


eet 


initDirect Type(PROTOTYPE-_OType); 


protleader = new char(strlen(prototype_leader)+1]; 
strcpy(protleader, prototype_leader); 

prot DictIndex = 0; 

protCreationDate = setProtCreationDate(); 


protdescription.init ToNull(); 
prot_default configuration.initToNull(); 


if(1\CONFIGURATION-OType) 


CONFIGURATION_OType = (Type*)OC_lookup("CONFIGURATION"); 
} 


Dictionary *new-configuration = new Dictionary(OC-integer, 
CONFIGURATION_OType, 
TRUE, FALSE); 

new-configuration —putObject(); 

prot_configuration_list.Reset(new configuration, this); 


putObject(); 


// End Constructor PROTOTYPE::PROTOTYPE // 


// Member Function // 


void PROTOTYPE::Destroy(Boolean aborted) 


} 


delete protleader; 
if (aborted) 


Object::Destroy (aborted); 


Typee PROTOTYPE::getDirectType() 


// returns the ONTOS Type for the prototype class. 
// 


// Return value 


// 
// A pointer to an ONTOS Type. 
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{ 
return PROTOTYPE_OType; 


} 
char + PROTOTYPE::getName() 


// Summary ———————_————_—_-——-—--—-- 


// returns the name of the prototype 


// 
// Return value 


// 


// A pointer to a character string 


Directory *directory=(Directory +)0; 
char *name=(char +)0; 
char *temp=(char +*)0; 


if(!this) 
{ 


cerr < "<ERROR: cannot get the name of a null PROTOTYPE>\n"; 
return NULL; 


else 


{ 


name = Name(); 

OC_getNameComponents(name, &directory, &name); 
temp = new char [strlen(name)+1]; 

temp = strtok(name,"."); 

return temp; 


} 

void PROTOTY PE::get Prototy peName() 
// Summary —————————————————- 
// Displays the name of the prototype 


// 


// Return value 


// 


// Displays the Prototype Name and a linefeed to the stdout 


{ 


Directory *directory; 
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char *name; 


if(!this) 
{ 
cerr < "<ERROR: cannot get the name of a null PROTOTYPE>\n"; 
return; 


} 


else 


name = Name(); 
OC_getNameComponents(name, &directory, &name); 
cout < name < "\n"; 


} 
} 


void PROTOTYPE::getPrototypeLeader() 


{i sinnery = ——— — 


// 


// Displays the name of the prototype leader 


// 
// Return value 


[| 


// Displays the Prototype leader and a linefeed to the stdout 


if(!this) 


cerr < "<ERROR: cannot get the leader’s name of a null PROTOTYPE>\n"; 
return; 


} 


cout < protleader < "\n"; 
} 


void PROTOTYPE::getPrototy peDescription() 


// Summary —————————-—_—-—_—_————- 
// 


// Displays the prototype description 


// 


// Return value 


My 


// Displays description to stdout tf a description ezists 


if(!this) 
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cerr < “<ERROR: cannot get the description of a null PROTOTYPE>\n"; 
return; 


if(!protdescription) 


cerr < "<This prototype does not contain a description>\n"; 
return; 


} 


else 


TEXT_OBJECT* myTextObjPtr = (TEXT-OBJECT+) protdescription.Binding(this); 
myTextObjPtr — text(cout); 


} 
} 


void PROTOTYPE::changePrototypeName(char *new_prototype name) 


// Summary ———————————— ——— ——- 


// 


// Changes the prototype name 


i 


// Parameter 


// 


// new.prototype.name 


// 


// a character string pointer containing the new name 


// 


// Return value 


if(!this) 
{ 


cerr < "<ERROR: cannot set the name of a null PROTOTYPE>\n"; 
return; 


Name(new-prototype_name); 


} 


void PROTOTYPE::changePrototypeLeader(char *new_prototype_leader) 


// changes the prototype leader 


// 


// Parameter 
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// 


// new_prototype_leader 


// 


// a character string pointer containing the new leader’s name 


// 


// Return value 


// 
/| N/A 


if('this) 
{ 


cerr < "<ERROR: cannot change the leader of a null PROTOTYPE>\n"; 
return; 


} 


delete protleader; 

protleader = new char{strlen(new prototy pe_lJeader)+1]; 
strcpy(protleader, new_prototype_leader); 

putObject(); 


} 


void PROTOTYPE::updatePrototypeDescription(char +fileName, ifstream& input_file-stream) 


// Summary —————————_——_—_—_————- 
// 


// changes the prototype description 


// 


// Parameter 


i) 
// fileName 


// 


// a character string pointer containing the new name of 
// the file containing the new description. 


// 


// input_file_stream 

// 

// the file handle of the input description file. 
// 


// Return value 


if (!protdescription) 


TEXT_OBJECT *textObjectPtr = new TEXT OBJECT(); 
textObjectPtr — append(fileName, input-file.stream); 
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protdescription.Reset(textObjectPtr, this); 
putObject(); 


else 


TEXT_OBJECT *textObjectPtr = (TEXT OBJECT*) protdescription.Binding(this); 
textObjectPtr — resetTheText(); 

textObjectPtr — append(fileName, input file-stream); 

putObject(); 


} 


void PROTOTYPE::dumpPrototypeSummary() 
{ 


// Summary ————————_-—_-—_-—_-_-_-—--—--—--—- 
if 

// Displays the date created, leader, default config, and 
// description of a prototype to stdout 

// 1 item per line ending with the (potentially) multi-line 
// description. 

a 

// Parameter 

// 

//| N/A 

// 

// Return value 

// 

//| N/A 

// 


time.t creationdate = 0; 

creationdate = getProtCreationDate(); 

cerr < "Creation Date: "; 

cout < ctime(&creationdate) < "\n"; 

cerr < "Leader: '"; 

getPrototypeLeader(); 

cerr <"Default Config: "; 

get DefaultConfigName(); 

cerr < "Prototype Description 
follows: ee ee ee S\N"; 

getPrototypeDescription(); 


void PROTOTYPE::addConfiguration(CONFIGURATION configuration) 
{ 


// Summary —————————————————- 


// 
// adds a configuration to the prototype 
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// 
// Parameter 


// 


// configuration 


ii 


// a pointer to the configuration to be added to the 
// prototype. 

// 

// 


// Return value 


if(!this) 


cerr < "<ERROR: cannot set the description of a null PROTOTYPE>\n"; 
return; 


if(!configuration) 


cerr < "<ERROR: cannot give to a PROTOTYPE a null configuration>\n"; 
return; 


else 
{ 

protDictIndex = protDictIndex + 1; 

Dictionary*confDictionary Ptr= 
(Dictionary+)prot_configuration_list.Binding(this); 

confDictionaryPtr — Insert(protDictIndex, (Entity *)configuration); 

confDictionaryPtr — putObject(); 

prot_default configuration. Reset(configuration, this); 

putObject(); 


} 
void PROTOTYPE::listConfigurations() 
// Summary —————————————————- 


// Display the configuration names contained in this prototype 
// to stdout. 1 configuration / line. 


// 


// Parameter 


// 
/] N/A 
i: 


// Return value 


// 
/] N/A 
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CONFIGURATION #the_configuration; 
char *name; 
Directory *directory; 


if(!prot_configuration_list) 


cerr < “<ERROR: cannot return a prototype from an empty list>\n"; 
return; 


} 


Dictionary *confDictionaryPtr = 
(Dictionary*)prot_configuration_list. Binding(this); 
Dictionarylterator configlist iterator(confDictionary Ptr); 


while(the-configuration =(CONFIGURATIONs)(Entity*)configlist iterator()) 


if (name = the-configuration—Name()); 


{ 


OC_get NameComponents(name, &directory, &name); 
cout < name < "\n"; 


} 
} 
} 


//Member Function // 
time_tt PROTOTYPE::set ProtCreationDate() 


// Summary ————-—-———_-—-_____-__-——_- 
vy 


// sets the creation date to system date at time of this call. 


// 


// Parameter 


// 
// N/A 


// Return value 


// 


// time_t as a default long value containing the system time 
// This function as a byproduct updates the protCreationDate 
// attribute field. 


{ 


time_t mytloc=0; 
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time_t theTime; 
return theTime = time(mytloc); 


// Member Function // 
time_t PROTOTYPE::get ProtCreationDate() 


// Summary ——————— ——————————- 
i) 


// Returns the prototype’s creation date 


Wh 


// Parameter 


// 
// N/A 
// 


// Return value 


Wy 


// time.t as a long value containing the system time 


void PROTOTYPE::getDefaultConfigName() 
// Summary ——————————————— ——- 


// Displays the default Configuration name for this prototype 
// to stdout 


// 


// Parameter 


// 
/] N/A 
// 


// Return value 


il 
// N/A 


{ 


Directory *directory; 
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char *name; 
if(!prot_default_configuration) 


cerr < "\n\n<No configurations are contained in this prototype.>\n\n"; 


else 


CONFIGURATION +the-configuration = 
(CONFIGURATION <s)prot_default_configuration.Binding(this); 
name = the-configuration — Name(); 
OC_getNameComponents(name, &directory, &name); 
cout < name < "\n"; 
} 
} 


char * PROTOTYPE::getConfigName() 
{ 


// Summary —————————————————- 

// 

// Returns a character string pointer to an area in memory 
// containing the name of the default Configuration name 
// for this prototype. 

// 

// Parameter 

// 

// N/A 

// 

// Return value 


Ud 


// character string pointer 


Directory *directory; 
char *name; 


if(!prot_default_configuration) 


cerr < “<No configurations are contained in this prototype. >\n\n"; 
return NULL; 


} 


else 


CONFIGURATION «the-configuration = 

(CONFIGURATION :+)prot_default_configuration.Binding(this); 
name = the-configuration — Name(); 
OC_getNameComponents(name, &directory, &name); 
return name; 


} 
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} 


CONFIGURATION «PROTOTYPE::getConfiguration(char «confName) 


// 
// Used by this class as a support function to update the default 
// configuration. 


// 


// Parameter 


// 
// confName 


// 
// configuration name to lookup the default configuration 
// for this prototype 


// 


// Return value 


// 


// Configuration pointer if successful. Null pointer if 
// failed. 


CONFIGURATION *myConfPtr = (CONFIGURATION *)OCookup(confName); 
if (myConfPtr) 


return myConfPtr; 


} 


else 


return (CONFIGURATIONs)0; 


} 

CONFIGURATION *«PROTOTYPE::get DefaultConfiguration() 
// Summary ———_—_———_—_—_—_—_ _—_—_—__—__—_- 
// 


// Returns the default configuration for this prototype. 
// The last configuration worked on. 


// 


// Parameter 


// Return value 


// 
// Configuration pointer if successful. Null pointer if 


// fatled. 
// 
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CONFIGURATION #the-configuration =(CONFIGURATION +)0; 
if(!prot_default_configuration) 
return NULL; 
} 


else 


the-configuration = 
(CONFIGURATION :s)prot_default_configuration.Binding(this); return theconfiguration; 


} 

} 

V_OBJECT *«PROTOTY PE::get Vobject() 
// Summary ———————————— —————- 
// 


// This method assumes that the root versioned object (V-OBJECT) 
// has the same name as the prototype. If this is not the case 

// then this function will not work. Taking the prototype name, 

// a thread lookup is performed and the most current VOBJECT 
// in the thread is returned. 

// 

// Parameter 

// 

// N/A 

// 


// Return value 


// 
// V-OBJECT pointer if successful. Null pointer if 
// failed. 


THREAD «*threadPtr=(THREAD+¢)0; 

char *name = new char ([strlen(getName())+1]; 
strcpy(name,get Name()); 

threadPtr = (THREAD *)OC_lookup(name); 

if (threadPtr) 


V_OBJECT *vobjectPtr = threadPtr—current(); 
if (vobjectPtr) 
return vobjectPtr; 
else 
{ 
return NULL; 


} 
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} 


else 


return NULL; 


} 
} 


// end functions 
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//.Author........: Garry Lewts 
ae : Drew Dwyer 


#ifndef _QUEUE_H 
#define _QUEUE_H 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char QUEUE-_h-SccsId{] = "@(#)queue.h 1.3\t9/16/91"; 


// Contents ————————————_—————- 


// 
// QUEUE 


// 


// Description 


// 
// IMPLEMENTS class QUEUE CONSTRUCTORS. 


// Interface Dependenctes ———-——-—_—-—_———-—-- 


// 


#include <iostream.hxx> 


extern "C--"{ 
#include <stdio.h> 
#include <string.h> 


} 


// 
// End Interface Dependenctes ———-——_—_—_—_—_——-- 


// Description ———————————— —— ——- 
// 

// Defines the slink, slist, slist.iterator, 

// treenode_linkedlist, and treenode_queue classes 


// 
// 


// There are no ontos mechanisms tn these classes. The primary 
// purpose of these classes is to provide the support structures 
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// of linked_lists and queues in order to process the CAPS 

//[ PROTOTYPE subdirectory. 

[| 

// As a subdirectory is read, each file 1s analzed to determine 

// whether it 1s an operator/type. If found to belong to 

// an operator which might version, the operator and operator 

// information ts placed into a multi-way tree parrallelling the 

// decomposition of an operator in the CAPS system. The 

// TREENODES are then compared against operator structures in 
// the Ontos Database in other programs documented elsewhere. 


// These structures are simple in nature and can be found in 

// any good C++ textbook. These particular examples came from 

// Bjarne Stroustrup’s C++ Programming Language tertbook (pg 203). 
// Please refer to the tertbook for further explanation of the 
// data structures and how they are manipulated. 


class TREENODE; 
class slist; 
class slist iterator; 


class slink { 
friend class slist; 
friend class slistiterator; 


private: 
slink* next; 
TREENODE «¢ e; 
sliink(TREENODE «¥ a, slink p); 
hs 


class slist { 
friend class slist_iterator; 


private: 
slink* last; // last-> nezt ts head of list 


public: 
slist(); // { last = NULL; } 
slist((TREENODE + a); 
int insert(TREENODE + a); // add at head of list 
int append(TREENODE + a); // add at tail of list 
TREENODE + get(); // return and remove head of list 
void clear(); // remove all links 
int empty(); // returns 1 if list is empty 


~slist(); // { clear(); } 
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class slistiterator{ 


private: 
slink» ce; 
slist* cs; 


public: 
slist_-iterator(slist& s); 
TREENODE + operator()(); 
i 


class TREENODE_linkedlist : public slist 
{ 


public: 
TREENODE_inkedlist(); 


int member(char *name); 


ie 


class TREENODE queue : private slist 
{ 


public: 

TREENODE-queue(){ } 

void put(TREENODE + a) {append(a); } 
slist::empty; 

slist::get; 


ie 


#endif // QUEUE Class header 


243 


eeeoeeeeeeeeeeeeoe 


| [ Author can: : Garry Lewis 
[| [usceoeeeceeeeeee Drew Dwyer 


@oereweoererreoeeoeeovee 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char QUEUE_cxx_Sccsld{] = "@(#)queue.cxx 1.3\t9/16/91"; 


// Contents ——————— ——————— ———-- 


// 
// QUEUE 


// 
// Description 


// 
// IMPLEMENTS class QUEUE CONSTRUCTORS. 


// 


#ifndef _QUEUE_H 
#include ”queue.h” 
#endif 


// End Interface Dependencies Se ee ee 
/{———-X -————x————- > nn, ee x 


// these are the implementation methods of classes 
// slink, slist, slist.iterator, and TREENODE_linkedlist 


= ee x 
{SSeS ee ————— rn 
yy 

// slink methods 

// 

a en ee ee: ee x 
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} 

ee ——— A X 
// 

// slist methods 

// 

i ——- A ————x————- x————x————-_- Xx 


slist::slist() 


last = NULL; 
} 
slist::slist(TREENODE + a) 
{ 


last = new slink(a,NULL); 
last — next = last; 


} 


int slist::insert(TREENODE «* a) 


if (last) 

last—next = new slink(a, last—next); 
else { 

last = new slink(a,NULL); 

last — next = last; 


} 


return 0; 


} 


int slist::append(TREENODE + a) 


if (last) 
last = last — next = new slink(a, last—next); 
else 
{ 
last = new slink(a,NULL); 
last — next = last; 


} 


return 0; 


} 


TREENODE « slist::get() 

{ 
[/ improve the following line for better error detection 
if (last == NULL) cout < “get from empty slist\n"; 
slink+ f = last— next; 
TREENODE + r = fe; 
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if (f == last) last = NULL; 
else last —next = f—next; 
delete f; 
return r; 


} 


void slist::clear() 


slink* | = last; 
if (1 == NULL ) return; 
do 


slink» Il = 1; 
1 = Il— next; 
delete Il; 

} while (1 # last); 


int slist::empty() 


{ 
if (last == NULL) return 1; 
else return 0; 


} 


slist::~slist() 


clear(); 
//-——-—-x-———_——-x————- xX————x—————- X 
i, 
// slist iterator methods 
// 
//—-———-x-——_—_—-x——_-—_—_- x————x—————_- X 


slist iterator::slist iterator(slist& s) 


{ 
cs = &s; 
ce = cs = last; 


TREENODE sslist_iterator::operator()() 
TREENODE + ret = ce ? (ce = ce — next) — e: NULL; 
if ( ce == cs —last) ce = NULL; 


return ret; 


} 
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aS a x 


// 
// TREENODE_lnkedlist methods 
Me 
{/-———-x-——— —-x—-—-—-—- xX————x—————_-- X 
TREENODE linkedlist:: TREENODE Jinkedlist() 
{ 
} 
int TREENODE_inkedlist::member(char *name) 
{ 
char *temp = name; 
return 1; 
} 
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|) 5 Ban ; 
//.Filename......: text_object.h 


//-SCCS ID... 1.3 


//.Author........: Garry Lewis 

ll eos Drew Duver 
//.Compiler......: : Glockenspiel C++ 2.1 
| ere 


#Hifndef _TEXT_OBJECT_H 
#define _TEXT_OBJECT_H 


// SCCS ID follows: will compile to place date/time stamp in object file 
static char text_object_h_SccsId[] = "0(#)text_object.h 1.3\t9/16/91"; 
// Contents ————————— ————— ——— - 
/ 


//| TEXT_OBJECT 


// 
// Description 


// 
// Defines class TEXT_OBJECT. 


yi Interface Dependencies be Eee 
// SCCS ID follows: will compile to place date/time stamp in object file 


A Interface Dependencies ————-—_—__—__—__—__—__—_ —- 


#include <Object.h> 
#include <stream.hxx> 


// End Interface Dependencies ————————_—__—— 


class TEXT_OBJECT : public Object 
{ 

private: 

char +the_file name; 

char xthe_text; 

public: 

TEXT_OBJECT(APL +); 

TEXT_OBJECT(); 

void Destroy(Boolean aborted=FALSE); 

Type *getDirectType(); 
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void append(char +, ifstream&); 

void append(char *); 

void append (ifstream&); 

void text(ostream&); // standard output 
Boolean rebuildTextFile(char+); 

void displayFileName(); 

char *getFileName(); 

char +text(); 

void reset TheText(); 

~TEXT-OBJECT() { Destroy(FALSE); } 


}; 
//{ Description —————————— ——— —— — 


// Defines a TEXT_OBJECT class. The class TEXT_OBJECT 1s a derived 
// class of Object. 


if 


// Constructor 

Me 

// TEXT.OBJECT - APL 

// 

// ONTOS required constructor 


// 
//| TEXT-OBJECT 


// 
// Creates a new instance of TEXT.OBJECT 


// 

// Public Members 
// 

// Destroy 


// 
/{ ONTOS required method. 


// getDirect Type 


| 
/{ ONTOS rquired method used to return the class Type. 
Th 
// append 
// 
// Reads in a tert file. 
Hy 
// append 
// 
//{ Read in a string append to existing string in log fashion. 
// 
Ey text 


// Send the tert contents to standard output. 


// 
// rebuildTertFile 


// 
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// Write the contents of a text object to a file. 


[| 
// displayFileName 


// 
// Send the file name to standard output. 


iy 
// getFileName 


// 


// Return a pointer the file name contained in the text object. 


// Returns a pointer to the text contained in the tert object. 


// 
// resetTheTezt 


// 
// Set the text field to a empty string. 


// 
if TEX MOBIECE 


[| 


// class destructor. 
// 
4 Desc 


#tendif //_TEXT_OBJECT_H 
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ne 


U0 eee 

//.Filename......: : tert_object.crzr 
mes OCS ID.......2 1.3 
//.Release No....: 1 
Wpeate..........: 9/16/91 

ee Atahor........: : Garry Lewis 
re... 2..00: : Drew Dwyer 


// SCCS ID follows: will compile to place date/time stamp 
// in object file 


static char composite.cxx_SccsId[] = "0(#)text_object.cxx 1.3\t9/16/91":; 


// Contents ————————___—_—____————— 
// 

// TEXT.OBJECT::TEXT_OBJECT Ontos Constructor 
// TEXT.OBJECT::TEXT.OBJECT 

// TEXT.OBJECT:: Destroy 

// TEXT_OBJECT::getDirect Type 

// TEXT-OBJECT:: append 

// TEXT_OBJECT: :append 

// TEXT_OBJECT:: append 

// TEXT.OBJECT::text 

// TEXT-OBJECT::rebuild Text File. 

// TEXT_OBJECT:: displayFileName 

// TEXT.OBJECT: :getFileName 

// TEXT-OBJECT::text 

// TEXT_OBJECT::reset The Text 

// 


// Description 


// 
// Implementation of class TEXT-OBJECT member functions. 


#include <strstream.hxx> 


#ifndef _TEXT_OBJECTH 
#include "text_object.h” 
#endif 


#Hifndef _TRACER_H 


#include ’tracer.h” 
#Hendif 
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#ifndef _DDBDEFINES_H 
#include ”ddbdefines.h” 
#endif 


extern "C--" 


{ 


#include <stdio.h> 
#include <sys/time.h> 
#include <sys/types.h> 
#include <stdlib.h> 
#include <strings.h> 


extern Type * TEXT OBJECT OType; 
extern char +dirNamePtr; 


TEXT_OBJECT::TEXT _OBJECT(APL «theAPL) : Object(theAPL) 


// Summary —————————_—_—_—_—_—_———- 


// 


// Ontos Required Constructor 


// 
// Return value 


// 
// A TEXT_OBJECT object 


is 
TEXT OBJECT::TEXT OBJECT() 


// Summary —————————————————- 
// 


// Constructor 


// 


// Return value 

// 

|| A TEXT_OBJECT object 

// the_file.name and thetert attributes are initialized to NULL; 


// End ————————— —— ——— —— ——— 


the_text=new char{]]; 
strcpy(the_text,""); 
thefilename = new char{]]; 
strcpy(the filename, ""); 
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putObject(); 


void TEXT_OBJECT::Destroy(Boolean aborted) 


//{ Summary —————————————————- 
// 


// Constructor 


// 


// Return value 


ie 

/{ A TEXT.OBJECT object 

// 

// the-file.name and the_tezt attributes are initialized to NULL; 
{f £Ead ———————————_—_—_—————— 


if(the_filename); 
delete thefile name; 
delete the_text: 
if(aborted) 


Object::Destroy(aborted); 


}; 

Type + TEXT_OBJECT::getDirectType() 
/{ Summary —————————————————- 
Ui 


// Ontos required method which returns the type of this object. 
yf 

// Parameter 

// 

[[ N/A 

// 

// Return Value 


// 
/[/ the type of this object. TEXT-OBJECT. 
// 


return TEXT_OBJECT_OType; 


hs 
void TEXT_OBJECT::append(char +filename, ifstream& input-file) 
/{ Summary —————————-—-—-—-—-—-—-——- 
ul 
// append a file as a text object 
i, 


// Parameter 
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’ 


i 
// filename 
// 


// character string * containing the name of the file which 
// is read into a tert_object. 


// 
// input_file 


// 

// file handle of input file 

// 

// Return Value 

// 

// stores the file as a tert_object in the database 

/[ Ead ———————————————— ——— 


the filename = new char{strlen(filename) + 1]; 
strcpy(the filename, filename); 


ostrstream buf; 

char ch; 

while (buf && input-file.get(ch)) 
buf.put(ch); 


thetext = buf.str(); 
put Object(); 


void TEXT_OBJECT::append(char +*instring) 


{ 


//{ Summary —————————————————- 

// 

// append a character string as a tert object. stores the character 
// string as a text_object in the database 


ul 


// Parameter 
// 
// instring 


// 


// character string * containing the description to be added as 
// a tert_object. 


// 
// Return Value 


// 
// N/A 


time.t mytloc=0; 
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time_t theTime; 


char *temp-_text=the-text; 
thetext=new char[strlen(temp_text)+strlen(instring)+ 
strlen(ctime(&theTime))+1]; 


strcpy(the text temp text); 
strcat(thetext, "\n"); 


theTime = time(mytloc); 
strcat(the_text, ctime(&theTime)); 
strcat(the-text, "\n"); 


strcat(the_text,instring); 
strcat(the_text, "\n"); 


putObject(); 


}; 
void TEXT_OBJECT::append(ifstream& input-file) 


// Summary —————————————————- 
// 


// append a file as a tert object. stores the file as a 
// tert_object in the database 


// 


// Parameter 


// 
// input-file 


// 
// file handle of input file 


// 
// Return Value 


// 
// N/A 


time_t mytloc=0; 
time.t theTime = 0; 


char *temp_text=the-_text; //save old tezt 
ostrstream buf; 

char ch; 

while (buf && input-_file.get(ch)) 


buf.put(ch); 


theTime = time(mytloc); 
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char +filetext = buf.str(); 

the_text=new char[(strlen(temp_text)+strlen(file text) + 
strlen(ctime(&theTime))+256]; 

int tempsize = strlen(temp_text)+strlen(file_text) + 

strlen(ctime(&theTime))+256 ; 

strcpy(the text,temp_text); 

streat(thetext, "\n"'); 

strcat(the text, ctime(&theTime)); 

strcat(the_text, "\n"); 

strceat(the text, file text); 

strceat(the_text, "\n"); 


putObject(); 
} 


void TEXT_OBJECT::text(ostream& outstream) 


// Summary —————————————————- 
// 


// output the tert_object as a file. dumps the tert_object to 
//[ the PROTOTYPE environment subdirectory 


Me 


// Parameter 
// 
// outstream 


// 
// file handle of output file 


// Return Value 


// 
//| N/A 
// 
// Ead ————————————————--——— 
{ 
outstream < the_text; 
ie 


Boolean TEXT_OBJECT::rebuildTextFile(char +fileMode) 
// Summary —————————————————- 


// output the tert_object as a file in ”r” - read only or ”w” read 
// and write mode (refer to Uniz system manual). dumps the 
// tert.object to the PROTOTYPE environment subdirectory 
// 


// Parameter 


// 
// fileMode 
// 
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// "r” - read only. ”w” read/write. 

// 

// Return Value 

// 

// Boolean SUCCESS or FAILURE - refers to success of 
// rebuilding file on the disk. 


ofstream oF ile; 

char *mypath = new char{MAX_LINE.LENGTH]; 
strcpy(mypath, dirNamePtr); 

strcat(mypath, "/"'); 

strcat(mypath, the-file name); 

if (stremp(fileMode, "w") == 0 || stremp(fileMode, "wW") == 0) 


oF ile.open(mypath,ios::noreplace); 
if (!oFile) 


return FAILED; 


} 
} 


else 


oFile.open(mypath, ios::noreplace, 0444); 
if (!oF ile) 


cerr < "<ERROR: file "<the_filename < " already exists.>\n"; 
return FAILED; 


} 


if (the_text) 

oFile < the_text ; 
oF ile.close(); 
return SUCCESS; 


} 


void TEXT-OBJECT::displayFileName() 
// Summary —~———————————————- 


// Displays the text_object filename to stdout. 


// 


// Parameter 


// 
// N/A 


// Return Value 


// 
// N/A 
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{ 


cout < the-filename < "\n"; 


} 

char + TEXT_OBJECT::getFileName() 
// Summary ————————_—_————————- 
// 


// Returns the attribute containing the name of the file 
// as it was stored on the disk. 


// 
// Parameter 


// Return Value 
a 


// character string containing the file name of the object 


return the-file_ name; 


} 


char *TEXT_OBJECT::text() 


// Summary —————————————-————- 


// 


// return the contents of the_tezt 


// 


// Parameter 
// 
// N/A 


// Return Value 
// 


// character string pointer with the tert in the tert_object. 


{ 
Is 


void TEXT_OBJECT::reset TheText() 
// Summary ———————————— ——— ——- 


// 


// Reinitialize the_tezt attribute to a blank character. 
// 

// Parameter 

uh 

// N/A 


return the_text; 
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ee ee 
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//.Author........: : Garry Lewis 

| le ees Drew Diver 
//.Compiler......: : Glockenspiel C++ 2.1 
i eee 


#ifndef _THREAD-_H 
#Hdefine _THREAD-_H 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char thread_h_SccsId{] = "0(#)thread.h 1.3\t9/16/91"; 
// Contents —————————————_ — ———- 


// 
// THREAD 
// 


// Description 


// 
// Defines class THREAD. 


#include <Object.h> 
#include <Dictionary.h> 
#include <Reference.h> 
#include ’ReferenceMacros.h” 
#include <stream.hxx> 


class V.OBJECT; 
// End Interface Dependencies ———-—_—-—_—_—_—_——- 
TypeCheckReference(VOListReference, Reference, Dictionary); 
ca THREAD : public Object 


private: 
int current_version; // most recent rev. 
VOListReference the_list; 


public: 
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THREAD(APL *theAPL); 

THREAD(char +id); 

virtual void Destroy(Boolean aborted=FALSE); 
virtual Type *getDirectType(); 

int getCurrent VersionNum(); 

V-OBJECT *current(); 

V_OBJECT +version(int versionid); 

void add_object(V-OBJECT *new-object); 

void displayThread Versions(); 

void display ThreadContents(); 


ie 


// Description ——————-———-—_—_—_—_—-—-—- 


// 

// Defines a THREAD class. The class COMPONENT is a derived class 
// of Object (i.e. It is a persistent class). A thread may 

// contain multiple versions of an COMPONENT, composite or 

// configurations. 


i 


// Constructor 


// 
// Thread - APL 


// 
// ONTOS required constructor. 


// 
// Thread 
// 


// Constructs a thread with the given name. 


// 
// Public Members 


// 
// Destroy 


// 


// Used in lieu of a class destructor. 


// 
// getDirect Type 


// ONTOS required method to return the class type. 


// 


// getCurrent VersionNum 
// 


// Returns the version number of the vobject last add to the thread. 


// 


// current 


// 


// Returns a pointer to the current vobject in the thread. 


// 


// version 


// 


// Returns a pointer to a user designated version of a vobject. 


// 
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// add_Object 
i 


// inserts a vobject into the thread. 


// 
// displayThread Versions 
// 


// List the version numbers of vobjects contained in the thread. 
// 

// displayThreadContents 

// 


// Displays the version number and description of each vobject in the thread. 


#endit // _THREAD_H 
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Pee Uthor........: : Garry Lewis 

1 so OEE : Drew Dwyer 
//.Compiler......: Glockenspiel C++ 2.1 
peo. ..-..: 


// SCCS ID follows: will compile to place date/time stamp in object file 
static char thread_cxx_SccsId[] = "@(#)thread.cxx 1.3\t9/16/91"; 


eS —— 
// 
// THREAD::THREAD ONTOS constructor 
// THREAD::THREAD new instance constructor 
// THREAD:: Destroy 
// THREAD::getDirect Type 
// THREAD::getCurrent VerstonNum 
// THREAD::current 
//{ THREAD::version 
// THREAD::add_object 
// THREAD::displayThread Versions 
// THREAD::displayThreadContents 
// 
// Description 


// 
// Implementation of class THREAD member functions. 


#include <GlobalEntities.h> 
#include <stream.hxx> 


#ifndef _THREAD_H 
#include ”thread.h” 
#Hendif 


#ifndef _VERSIONED_OBJECT_H 
#include ”versioned_object.h” 


#Hendif 


extern Type *THREAD_OType; 
extern Type +V_OBJECT_OType; 


THREAD::THREAD(APL «#theAPL): (theAPL) 


263 


}; 
THREAD::THREAD(char +*id): (id) 


//{ Summary ————————————-—-—-—-—-—- 

// 

// Constructs a persistent THREAD object. A thread contains 
// alist of VOBJECTS (objects which version), and maintains 
// the most current version from that list of verstoned 

// objects. 

fy 

// A thread is stored in the ONTOS database and is given 
// visibility. Therefore, only one operator may generate any 
// given thread. 

ii 

// It is expected that Variations will inherit from threads 
// with two distinctive bits of information: 

// 

// the thread from which it spawned - 

// the verston number from which tt originated 

// 

// Parameter 

// 

// id 

ee 

// passed to the ONTOS database and gives persistence and 
// ONTOS visibility to that object 


// 
// Return Value 


// 
// a persistent THREAD in the ONTOS database 


init Direct Type(THREAD_OType); 

current _version=0; 

Dictionary «new_list=new Dictionary(OC-integer, 
V_OBJECT_OType, 
TRUE,FALSE); 

new_list —-putObject(); 

theist.Reset(newist, this); 

putObject(); 


} 


void THREAD::Destroy(Boolean aborted) 


Destroy(aborted); 


} 
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Type * THREAD::get DirectType() 


// Summary ———————————— ——— ——- 
// 


/[/ returns the ONTOS Type for the prototype class. 
// Return value 


// 
// A pointer to an ONTOS Type. 


return THREAD-_OType; 


}; 

int THREAD::getCurrent VersionNum() 
// Summary ———————————— —————- 
i. 


// returns the current version number tn the thread of 
// verstoned objects 

hf 

// Parameter 

iW 

[| N/A 

// 

// Return value 

/ 

// An integer value representing the current version of the 
// operator/type (as defined by CAPS) 

// 


{ 


return current_version; 


} 
V_OBJECT *THREAD::current() 


// Summary ——————————————— ——- 
// 


// returns the current verstoned object in the thread. 


// 

// Parameter 
[| 

[[ N/A 

// 


// Return value 


[| 
/[/ A V-OBJECT pointer 
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Dictionary *«temp_list= (Dictionary*)the_list. Binding(this); 
V-_OBJECT *«mytempvo = (V-OBJECT*)(Entity+)(+temp-_iist)[current_version]; 


return mytempvo; 


ie 


V_OBJECT *«THREAD::version(int the version) 


// Summary ————————————————-—- 
// 


// returns the desired version in the thread of versioned 
// objects 


// 


// Parameter 


// 
// N/A 
// 


// Return value 


// 
// A V-OBJECT pointer 


{ 


Dictionary *temp-_list= (Dictionary*)the_list.Binding(this); 
V_OBJECT *mytempvo = (V-OBJECT*)(Entity+)(+temp-list)[the_version]; 


return mytempvo; 


}; 


void THREAD::add_object(V-OBJECT *new_object) 


// Summary —————————_—_—_—_—_—_——_—- 


// 
// adds a versioned_object to the thread, and updates the 
// current.version attribute to reflect the newer version 


ui 


// Parameter 
// 


// new-vobject 


/ 
// V-OBJECT pointer 
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// 
// Return Value 


// 
y N/A 


if('!this) 


cout < “"<ERROR: cannot attach a v.object to a null THREAD>\n"; 
return; 


if(!new-object) 


cout < “<ERROR: cannot insert a null v.object into a thread>\n"; 
return; 


} 


else 


{ 


current_version = current_version + 1; 
Dictionary *temp-list = (Dictionary*)the_list. Binding(this); 
temp-list — Insert(current_version,(Entity *)new_object); 
temp-list — putObject(); 
putObject(); 
} 
}; 


void THREAD::displayThread Versions() 


Wsummary ——_———_—_—_——_—_—_—_—_—_—-—_—- 


// 


// Display the versions within a thread to stdout 


// 


// Parameter 


// 
[| N/A 


ui 
// Return Value 


Dictionary #temp-list= (Dictionary*)the_list. Binding(this); 
DictionaryIterator next(temp_iist); 


cerr < "THIS THREAD CONTAINS THE FOLLOWING VERSIONS: \n\n"; 
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while(next.moreData()) 


V_OBJECT *temp=(V-OBJECT «)(Entity +)next(); 
temp— display VersionNumber(); 


he 
ie 


void THREAD::displayThreadContents() 
{ 


// Summary —————————————————- 


// Displays the version and description of each versioned 
// object of a thread. 


i 
// NOT USED in current implementation of Design Database. 
[| 


// Parameter 


// 
// N/A 


// 
// Return Value 


Dictionary *temp-_list= (Dictionary*)the_list. Binding(this); 
Dictionarylterator next(temp list); 


cerr < "THIS THREAD CONTAINS THE FOLLOWING VERSIONS: \n\n"; 
while(next.moreData()) 
{ 

V-OBJECT +temp=(V-OBJECT *)(Entity *)next(); 

temp—display VersionNumber(); 

cout << “\n": 

temp— get Description(); 

cout < "\n"; 
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//.Author........: Garry Lewis 
J ocne : Drew Dwyer 


w@eveevreeszes ere 


#Hifndef _TREE_H 
#define _TREE_H 


//{ SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char tree_h_SccsId[{}] = "O(#)tree.h 1.3\t9/16/91"; 
// Contents ————————————_—_—_—_——- 


4 TREE HEADER 
// 


// Description 


// 
// Defines class TREE. 


// Interface Dependencies ———————_—_—_—_——- 


#Hifndef _TREENODE_H 
#Hinclude ”treenode.h” 
#Hendif 


// End Interface Dependencies —————-—_—_—_——— : 


class TREE 
{ e 
private: 
char *tree_name; 
TREENODE « theTreeRootNode; 


public: 
TREE(TREENODE ¢,char *); // input list and resulting rootnode 
void build_tree(TREENODE *,TREENODE_inkedlist); 
TREENODE +find_treenode(TREENODE linkedlist, char *); 
}; 


// Description ———————————— ——— —- 
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a 
// Defines the TREE class. 
// 


// Constructor 

// 

// Constructs a multiway tree from a linked list of nodes 

// identified as operators from reading the subdirectory in 

// TREENODE class. In this tree is one unique TREENODE - 
// the ”root”. Once the root ts identified, reference to 

// the tree can be passed to other classes who can then deal 

// individually with nodes in that tree through the TREENODE 
// class. 


// 
// TREE 
ii 


// constructs the tree given a TREENODE object and a character 
// string pointer to the root operator. 


// 
// Public Members 


// 

// build_tree 

// 

// takes in the root TREENODE and a linked list of other 

// generic operator nodes and builds the multiway tree using 

// pointers and lists of children nodes. 

// 

// find_treenode 

// 

// given a character string of a TREENODE and a linked list of 
// TREENODES, search the linked list and return a TREENODE 
// pointer on a match. Return a NULL pointer if fails. 


fendii ) =) need 
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Pe eatinor........: : Garry Lewis 
Cl EEE : Drew Dwyer 


eoeeeeeeeoesverxrea 08 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char tree.cxx-_Sccsld[] = "@(#)tree.cxx 1.3\t9/16/91"; 


// Contents ———————— ————————— 7 
// 

eee: TREE 

// TREE::build_tree 

// TREE::find_treenode 

/| 


// Description 


// 
// IMPLEMENTS class TREE CONSTRUCTORS. 


#include <Database.h> 
#include <stream.hxx> 


extern "C--" 

{ 

#include <stddef.h> 
#include <stdlib.h> 
#include <stdio.h> 
#include <string.h> 
#include <dirent .h> 
#include <sys/stat .h> 
#include <time.h> 


} 


#Hifndef _TREE_H 
#Hinclude ”tree.h” 
#endif 


#ifndef _QUEUE_H 


#include ”queue.h” 


#tendif 


#ifndef _NODESUPPORT_H 
#include ”nodesupport.h” 
#endif 


// ——-—- End Interface Dependencies —————— 


TREE::TREE(TREENODE +futureroot,char +treename) 


{ 


// Summary ———————————— —————- 
// 


// Constructor 


// 


// Parameter 


My 


// future_root 


/[/ TREENODE pointer containing the future root of the multiway 
// tree 

// 

// treename 

i, 

// character string - the same name as the root operator 
[| 

// Return Value 

[| 

// A construted multiway tree reflecting the nodes which 
// exist in the subdirectory and which will be checked into 
// the design database 


tree name = new char (strlen(treename)+1]; 
strcpy(tree_name,treename); 
theTreeRootNode = future_root; 


} 


TREENODE +*TREE::find_treenode(TREENODE_linkedlist list_to_search, 


char *node.name) 
// Summary ——————————————— ——- 


// 
// find_treenode 


// 

// Parameter 
ih 

[/ list_to_search 


// a linked list of TREENODES 


Dine 


i 


// node.name 


// 

// the operator/type to search for (t.e. - the name of the 
// operators filename MINUS the .ps, .graph, .imp.psdl, 
// .spec.psdl, .a extension 


// Return Value 


// TREENODE if found - NULL pointer if not found. 


slistiterator list iterator(list_to_search); 
TREENODE «*tnode; 
while (tnode=list_iterator()) 
if (strcmp(tnode—getname(),nodename)==0) 
return tnode; 
return NULL; 


} 
void TREE::build_tree(TREENODE +#root_node, TREENODE-_linkedlist search ist) 
// Summary —————————_————————- 


// Builds a multiway tree containing the nodes in the directory 

// and information required to determine whether a new version 
// of the node must be created in the ONTOS Design Database. 
// 


// Parameter 


// 


// root_node 


// 
// the unique TREENODE which ts the root of this multiway tree 


// 
// search_list 


// 


// a list of operators in the subdirectory pointed to by the 
// environment variable PROTOTYPE 


// 
// Return Value 


// 
// N/A 


TREENODE ¥# nodeptr; 
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TREENODE * temp-TREENODE.ptr; 
TREENODE * new-TREENODE ptr; 

// create the queue inorder to construct the tree 
TREENODE_queue tree_node_queue; 

tree node_queue.put(root node); 

// now the queue has the first TREENODE on tt 
while (!tree node_queue.empty()) 


{ 


temp-TREENODE_ptr = tree_node-queue.get(); 

// now iterate through search_list , look for NODES whose associated 

// strings are ”proper” superstrings of temp. TREENODE_ptr-> operator_name 
// If they are create a TREENODE for these child nodes, 

// put the TREENODE in queue as well as in temp_TREENODE_ptr-> children 
// list. 


slistiterator OperatorPtr(search ist); 
while (nodeptr=OperatorPtr()) 


if (proper_super NODE -check(nodeptr,temp TREENODE ptr—getname())) 
// create the new TREENODE 


new-TREENODE ptr = new TREENODE(nodeptr, temp-TREENODE ptr); 
tree node_queue. put(new_TREENODE ptr); 
temp-TREENODE-ptr—insertChildNode(new._.TREENODE_ptr); 


} 
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Pemamthor........: : Garry Lewis 
Poo .00...: : Drew Dwyer 


eeoeoeveeeoeveeeoeevre 


#ifndef _TREENODE_H 
#Hdefine _TREENODE_H 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char treenode_hSccsId{] = "@(#)treenode.h 1.3\t9/16/91"; 
// Contents ———————————_—_—_—_-—_-—-—- 


// 
// TREENODE HEADER 
// 


// Description 


// Defines class TREENODE. 


#ifndef _QUEUE_H 
#include ”queue.h” 
#Hendif 


#ifndef _VERSIONED_OBJECT_H 
#tinclude ”versioned_object.h” 
#tendif 


|/ End Interface Dependencies ————————_—— — 
class TREENODE, 


class TREENODE 

{ 
private: 
char +tree_node_name; 
char *node_name; 
long timestamp; 
int level; 


TREENODE_linkedlist Children List; 
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TREENODE »* ParentNode; 


public: 

TREENODE(char *, TREENODE +); 

TREENODE(TREENODE +#,TREENODE «); 

void updatetimestamp(long time); 

char +getname(); 

void insertChildNode(TREENODE +); 

TREENODELlinkedlist getChildren(); 

TREENODE #getParentNode(); 

char +get_asc_time(); 

int getlevel(); 

long gettong_time(); 

void list_subtree(); 

void checkin-subtree(V_OBJECT «); 

V-OBJECT *checkin.node(V-OBJECT ¥); 
}; 


// Description —————————— ——— ———- 
// 
// TREENODE 


// 

// TREENODE 

// 

// Constructor - Builds a treenode to be a node plus pointer 
// information for building a multiway tree. 

// 

// updatetimestamp 

// 

// used to compare the most current filestamp of the group of 
// five files in a versioned object from the disk directory 

/[/ pointed to by the CAPS environment variable PROTOTYPE to 
// the locktime of the matching versioned object stored 

// in the Design database. 

// 

// getname 

ly 

// returns the character string name of the treenode. 

// 

// insertChildNode 

// 


// used to insert a node as a child of the current treenode 


yy 
// getChildren 


// 
// returns the linked list of children of this node 


// 
// getParentNode 


it 


// returns the parent of this node 


// 
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// get-asc_time 


// 


// returns the ctime function for the treenode timestamp attribute 


// 
// get-level 


// 
// returns the integer level (0 = root, 1 is removed from root 
// 1 level, etcetera 


i 


// get-long.time 

// 

// returns the timestamp from the treenode as a long that can 
// be used in a comparison in the checkin_node function 


// 


/[ list_subtree 


// used for debugging. Lists the multiway tree 


// 


// checkin_subtree 

// 

// after the multiway tree is built, this function launches the 
[/ recurston which does the bulk of the work. 


// 
[/ checkin_node 


// 

// the function which compares the TREENODE (as read from 
// disk) to threads in the database. If a match ts found, 

// lockttmes are compared to timestamp and if timestamp is 
// more recent, then a new verstoned object is created for 

// the database. All version links are set up in this 


// function 


fe 
// End Description —————————————— — 


#endif // header file 


Path 


//.Filename......: treenode.crz 
[SCE s 1D ee. ee Oe 
//.Release No....: 1 


//.Date..........: 9/16/91 
JieAulhor coe : Garry Lewis 
| f weesacctonesee Drew tiyen 


eevee ereoeoeeveveeeee 


a a 


// SCCS ID follows: will compile to place date/time stamp in 
// object file 


static char treenode_cxx_SccslId[] = "@(#)treenode.cxx 1.3\t9/16/91"; 


// Contents 


// 

// TREENODE: 
//| TREENODE: 
// TREENODE:: 
//| TREENODE:: 
//| TREENODE:: 
// TREENODE: 
// TREENODE:: 
// TREENODE: 
// TREENODE:: 
//| TREENODE:: 
//| TREENODE: 
//| TREENODE:: 
// TREENODE:: 


:TREENODE 
:STREENODE 


updatetimestamp 
getname 
insertChildNode 


:getChildren 


getParentNode 


:get_asc_time 


getlevel 
get_long_time 


slist.subtree 


checkin_subtree 
checkin_node 


// 
// Description 


// 
// IMPLEMENTS class TREENODE CONSTRUCTORS and methods. 


// Interface Dependencies 
#include <Directory.h> 
#include <stream.hxx> 


extern “C--"' 

{ 

#include <stddef.h> 
#include <stdlib.h> 
#include <stdio.h> 
#include <string.h> 
#include <dirent.h> 
#include <sys/stat.h> 


278 





#include <time.h> 


#ifndef _THREAD_H 
#include ’thread.h” 
#endif 


#ifndef _COMPONENT-H 
#include ”component.h” 
#endif 


#ifndef _TEXT_OBJECTH 
#include "text object .h” 
#endif 


#ifndef _TREENODE_H 
#include ’treenode.h” 
#tendif 


#ifndef _DDBDEFINES_H 
#include ’ddbdefines.h” 
#endif 


// ———- End Interface Dependencies ——— ——— 


extern char *dirNamePtr; 


TREENODE::TREENODE(char *name, TREENODE*s future_parent) 
{ 
tree node name = new char{strlen(name)+1]; 
strcpy(tree node name,name); 
level=0; 
timestamp = 0; 
ParentNode =future_parent; 


} 


TREENODE::TREENODE(TREENODE +#inc_data, TREENODE* future_parent) 


{ 


tree node name = new char'strlen(inc_data—getname())+1]; 

strcpy(tree node name,inc_data—getname()); 

if ((future_parent)#N ULL) 
level=future_parent—getlevel()+1; 

else 
level=1; 

timestamp = inc_data—get_long_time(); 

ParentNode = future_parent; 


} 


void TREENODE::updatetimestamp(long time) 


{ 


timestamp=time; 
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} 


char + TREENODE::getname() 
{ 


return tree_node_name; 


} 
void TREENODE::insertChildNode(TREENODE *new-child) 


Children List.insert(new child); 


} 


TREENODE Linkedlist TREENODE::getChildren() 


return ChildrenList; 


} 


TREENODE *TREENODE::getParentNode() 
{ 


return ParentNode; 


} 


char + TREENODE::get_asc_time() 
{ 


return ctime(&timestamp); 


} 


int TREENODE::getlevel() 
{ 


return level; 


} 


long TREENODE::get long_time() 
{ 


return timestamp; 


} 


void TREENODE::list_subtree() 


slistiterator ChildrenPtr(ChildrenList); 
TREENODE ¢tnode; 
for (;;) // recursive call inside infinite for loop 


tnode = ChildrenPtr(); 
if (tnode#N ULL) 
{ 


char +name=tnode—getname(); 

int level = tnode—getlevel(); 

char *asctime = tnode—get_asc_time(); 

cout < level < "-->" < name < "time: "<asctime; 
tnode—list_subtree(); //preorder 
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} 


else 
break; // breaks when end of list reached. 


} 
void TREENODE::checkin_subtree(V-OBJECT *new parent) 


slist.iterator ChildrenPtr(ChildrenList); 
TREENODE #tnode; 
for (;;) // recursive call inside infinite for loop 


tnode = ChildrenPtr(); 
if (tnode#NULL) 


V_OBJECT «parent; 
char #name = tnode—getname(); 
cerr < "CHECKIN--> " < name < "\n"; 
parent = tnode—checkin node(new parent); 
tnode—checkin-subtree(parent); //preorder 

} 

else 
break; // breaks when end of list reached. 


} 


V_OBJECT *TREENODE::checkin-node(V-OBJECT »*future-_parent) 
{ 

ifstream psfile; 

ifstream graphfile; 

ifstream impfile; 

ifstream specfile; 

ifstream sourcefile; 


Boolean create_new -vobject = FALSE; 
char *psfilename; 

char +*graphfilename; 

char +*impfilename; 

char *specfilename; 

char *sourcefilename; 


char «COMPONENT _psfilename; 
char *COMPONENT-graphfilename; 
char *COMPONENT Umpfilename; 
char *+COMPONENT- -specfilename; 
char *COMPONENT-sourcefilename; 


COMPONENT psfilename = new char{strlen(tree node name) +LENGTH PS_EXT-+2}; 
COMPONENT -graphfilename = new char{strlen(tree node name) +LENGTH_GRAPH_EXT+2]; 
COMPONENT.impfilename = new char{strlen(treenodename)+LENGTHIMP_EXT+2]; 
COMPONENT -specfilename = new char{strlen(tree node name)+LENGTH SPEC EXT+2]; 


281 


COMPONENT-sourcefilename = new char{strlen(tree node name)+LENGTH SOURCE EXT+2]; 


psfilename = new char{strlen(dirNamePtr) +strlen(tree node name) +LENGTH-PS EXT+2]; 
graphfilename = new char{strlen(dirNamePtr)-+strlen(tree node name)+LENGTH-GRAPH_EXT+2]; 
impfilename = new char(strlen(dirNamePtr)+strlen(tree nodename)+LENGTH_IMP_EXT-+2]; 
specfilename = new char{strlen(dirNamePtr)-+strlen(tree node name)+LENGTH SPEC EXT+2]; 
sourcefilename = new char(strlen(dirNamePtr)+strlen(tree node name) +LENGTH SOURCE EXT+2]; 


strcpy(psfilename,dirNamePtr); 
strcpy(graphfilename,dirNamePtr); 
strcpy(specfilename,dirNamePtr); 
strcpy(impfilename,dirNamePtr); 
strcpy(sourcefilename,dirNamePtr); 


strcat(psfilename,"/"); 
strcat(graphfilename,"/"); 
strcat(specfilename,"/"); 
strcat(impfilename,"/"); 
strcat(sourcefilename,"/"); 


strcat(psfilename,tree node_name); 
strcat(graphfilename,tree node.name); 
strcat(specfilename,tree_node_name); 
strcat(impfilename,tree_node_name); 
strcat(sourcefilename,tree node name); 


strcat(psfilename,".ps"); 
strcat(graphfilename,". graph"); 
strcat(impfilename,".imp.psd1"); 
strcat(specfilename,".spec.psd1"); 
strcat(sourcefilename," .a"); 


strcpy(COMPONENT psfilename,tree node name); 
strcpy(COMPONENT -graphfilename,tree node name); 
strcpy(COMPONENT -specfilename,tree node name); 
strepy(COM PONENT impfilename,tree_node name); 
strcpy(COMPONENT -sourcefilename,tree node name); 


strcat( COMPONENT _psfilename,". ps"); 
strcat(COMPONENT -graphfilename,". graph"); 
strcat(COMPONENT impfilename,". imp. psd1"); 
strcat(COMPONENT -specfilename,".spec.psd1"); 
strcat(( COMPONENT -sourcefilename,". a"); 


psfile.open(psfilename); 
graphfile.open(graphfilename); 
impfile.open(impfilename); 
specfile.open(specfilename); 
sourcefile.open(sourcefilename); 
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THREAD +#threadPtr= (THREAD +*)0; 
V_OBJECT +#vobjectPtr =(V_ OBJECT +)0; 
V-OBJECT +*new_vobject = (V-OBJECT +)0; 
long vobject_locktime = 0; 

int versionNum = 1; 


if (threadPtr =((THREAD +)OC_lookup(tree node name))) 


vobjectPtr = threadPtr —current(); // return current vobject 
vobject_locktime = vobjectPtr —getLockTime(); // return locktime 
Boolean last.operation-was_checkin = vobjectPtr—get last _operation(); 
if (vobject_locktime < timestamp) 


if (last .operation_was_checkin) 


{ 


cout < "Last operation was VAA ... Preventing duplicates\n"; 
return vobjectPtr; 


else 


{ 
versionNum = vobjectPtr — get VersionNumber() + 1; 
create new_vobject = TRUE; 


} 
} 


else 


threadPtr = new THREAD(tree node name); 
create _new vobject = TRUE; | 


} 
if (vobjectPtr) 


vobject Ptr—releaseLock(); 

vobjectPtr—reset LastOp True(); 

vobjectPtr—reset VisitedFlag(); // Just for good measure, before pass 2 
vobjectPtr—putObject(); 


} 


if (create_new -vobject) // if compare says I need a new 


{ 


new_vobject= new V-OBJECT(versionNum); 
new-_vobject—connect -vobject to thread(thread Ptr); 
COMPONENT *«new.-COMPONENT=new COMPONENT(); 
if (psfile) 


TEXT_OBJECT «new psfile_object= new TEXT OBJECT(); 
new-psfile object—append(COMPONENT psfilename,psfile); 
new. COMPONENT —addTextObject(new psfile object); 


} 
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if (graphfile) 


TEXT OBJECT * new-graphfile object=new TEXT OBJECT(); 
new-graphfile_-object—append(COMPONENT graphfilename,graphfile); 
new-COMPONENT —addTextObject(new-graphfile-object); 


} 
if (specfile) 


TEXT_OBJECT * new-specfile object=new TEXT OBJECT(); 
new-specfile object—append(COMPONENT -specfilename,specfile); 
new. COMPONENT —addTextObject(new-specfile object); 


} 
if (impfile) 


TEXT_OBJECT * new.impfile-object=new TEXT-OBJECT(); 
new_impfile_ob ject—append(COMPONENT impfilename,impfile); 
new. COMPONENT —addTextObject(new impfile-object); 


} 


if (sourcefile) 


TEXT_OBJECT *new-sourcefile object=new TEXT OBJECT(); 
new.sourcefile .object—append(COMPONENT -sourcefilename,sourcefile); 
new-COMPONENT —addTextObject(new-sourcefile object); 


j 


new-vobject—addCOM PONENT Node(new COMPONENT); 
threadPtr—add object(new vobject); 


if (future_parent) 


if (vobjectPtr) 
future_parent—deleteChildNode(vobjectPtr); 

future_parent—addChildNode(new_vobject); 

future_parent—putObject(); 


} 


if (future_parent) 


future_parent—addChildNode(vobjectPtr); 
future_parent—putObject(); 


} 


psfile.close(); 
graphfile.close(); 
impfile.close(); 
specfile.close(); 
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sourcefile.close(); 


if (create_new -vobject) 


{ 


new-vobject—+set NodeName(getname()); 
new_vobject—setParent(future parent); 
return new-vobject; // return new version of vobject as parent 


} 


else 


vobjectPtr—setParent(future parent); 
return vobjectPtr; // return old version of vobject as parent 


} 
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|| See 

| / Pilénanies... : versioned_object.h 
//-SCCS Tiere. as 

//.Release No....: 1 

| /2Deteee ee » 9/16/91 

| [;Aunonee: > Garry Lewis 


#ifndef _VERSIONED_OBJECT_H 
#define _VERSIONED_OBJECT_H 


// SCCS ID follows: will compile to place date/time stamp in object file 
static char versioned_object_h_SccsId{] = "@(#)versioned_object.h 1.3\t9/16/91"; 


#include <Object.h> 
#include <List.h> 

#include <Dictionary.h> 
#include <Reference.h> 
#include ”ReferenceMacros.h” 
#include <stream.hxx> 


extern "C--" 


{ 


#include <sys/time.h> 
#include <sys/types.h> 
#include <string.h> 


} 
#ifndef _THREAD_H 


#Hinclude ”thread.h” 
#Hendif 


#ifndef _COMPONENT_H 

#include ” component .h” 

#endif 

#define DEFAULT_VER 1 

TypeCheckReference(DescReference, Reference, TEXT -OBJECT); 
TypeCheckReference(COMPONENTObjReference, Reference, COMPONENT); 
TypeCheckReference(ChildVObjReference, Reference, List); 

Ty peCheck Reference(ThreadObjReference, Reference, THREAD); 

class V_OBJECT : public Object 


TypeCheckReference(ParentObjReference, Reference, V-OBJECT); 
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private: 


int theVersionNumber; 

time_t creation Date; 

time.t lockTime; 

char +node_name; 

char ¥creator; 

char +worker; 

Boolean visited; // for navigation through tree structure 
Boolean last-op-checkin; // guards against double checkin 
DescReference theDescriptionPtr; 

ThreadObjReference theThreadPtr; 
COMPONENTObjReference theCOMPONENTPtr; 
Child VOb}Reference theChildPtr; 

ParentObjReference theParentPtr; 


public: 


V_OBJECT(APL +); 
V_OBJECT(int= DEFAULT_VER); 
void Destroy(Boolean aborted=FALSE); 
Type +getDirectType(); 

void connect_vobject_to_thread(THREAD +); 
void setParent(V-OBJECT +*); 
void setNodeName(char +); 

char +getNodeName(); 

void get VObjName(); 

char +getName(); 

void reset VisitedF lag(); 

void set VisitedFlag(); 

Boolean getVisitedFlag(); 

void get VObjComponentsName(); 
void display VersionNumber(); 

int get VersionNumber(); 

void dumpVObjSummary(); 

time_t setCreationDate(); 

time_t getCreationDate(); 

void setLock(); 

char «get Worker(); 

char +getCreator(); 

void set Worker(); 

void resetLastOpTrue(); 

void reset LastOpFalse(); 

Boolean get_last.operation(); // returns true tf last op was checkin 
int releaseLock(); 

timet getLockTime(); 

void getDescription(); 

void listChildren(); 

void longlistOperatorNames(); 

void listOperatorNames(); 
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void updateDescription(char +, ifstream &); 
void addCOMPONENTNode(COMPONENT +); 
void deleteChildNode(V_OBJECT +); 
void addChildNode(V-_OBJECT +*); 
V.OBJECT *getParent(); 
COMPONENT «getCOMPONENT(); 
void dumpSubtree(char +); 
void releaseLockSubtree(); 
List «getChildren(); 
Boolean getChildPtr(); 
Boolean checkoutCOMPONENTNode(char +); 
~V_OBJECT() { Destroy(FALSE); }; 

}; 


[/[ Description —————————————_———- 
// V-OBJECT 
// V-OBJECT 
// 
// Constructors - builds a persistent object in the Ontos 
// database. 
// 
// Destroy 
// 
//{ Required by Ontos. Every persistent object must have a 
// destroy function. 
i 
// getDirectType 
// 
// Returns an Ontos Type 
// 
// connect_vobject_to_thread 
// 
// Connects a vobject to a thread bearing it’s name. 
// 
// setParent 
El 
// Used to establish links (Transparent References as Ontos 
// calls them) in the Design Database reflecting the 
// decomposition of CAPS operators/types. 
i 
// setNodeName 
a 
// NodeName is maintained as a separate character string field. 
[| 
// getNodeName 
// 


// get the shorter NodeName 
// getVObjName 
// 


// Displays the versioned object’s name to stdout 
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// 
// getName 


[| 


// returns the character string pointer of the Operator Name 


// 
// reset VisitedFlag 


// 
// resets visited to FALSE 


// 
// set VisitedFlag 


// 
// sets visited to TRUE 


VL 
// get VisttedFlag 


// 


// returns the value of visited (Boolean) 


// 
// get VObjComponentsName 
A 


// display the different components in the Operator 


// 
// display VersionNumber 


[| 
// Display the version number of the V-OBJECT to stdout 


a 
// get VersionNumber 


// return the int verstonNumber 


Vy 
/{ dump VObjSummary 


[| 


// dump predetermined attribute values to the stdout/stderr 


// setCreationDate 


// 


// gets the system time and stores it in CreationDate 


vi) 
// getCreationDate 


[| 


// Displays the creation date as a 26 character ascii tert 
// string of the date and time 


// 
// setLock 
// sets the lock to the system time 


ty 
// getWorker 
My 


// returns the character string containing the workers name 


// 
// getCreator 
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// 
// returns the character string containing the VOBJECT 
// creators name 


// 
// setWorker 


// 
// gets the UNIX UserPir variable and stores the value of that 
// variable into worker 


// 
// resetLastOp True 


// 

// Tells the system that the last operation on that VOBJECT 
// was a checkin. Prevents duplicate checkins from creating 
// new versioned objects on each checkin 


// 
// resetLastOpFalse 


// 


// resets the last operation immediately following checkin 


// 


// get-last_operation 


a 


// returns a Boolean TRUE if last operation was an add 


// 
// releaseLock 


// 


// sets the lockTime back to 0 (epoch time) Sometime in 1969. 


// 
// getLockTime 


// 


// return the lockTime as a time_t (long) structure 


// 


// getDescription 


// 
// Display the VCOBJECT description (if one exists) 
/ 


/ 
// lustChildren 


// 
// ist VIOOBJECT’s chilren 
// 


// longlistOperatorNames 


// st VIOBJECT’s children 
// 


// lstOperatorNames 


// 


// gives the explicit name of the operator (to include 
// path information from the root VOBJECT 
// 


// updateDescription 


Wi 


// updates the versioned_objects description. 
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// 

// addCOMPONENTNode 

// 

//{ adds an COMPONENT object to this VCOBJECT using the Ontos 
// binding mechanism 


// 

// deleteChildNode 

// 

// removes an operator from the children list of the 
// current VOBJECT 


// 
// addChildNode 


// 
// adds an operator to the children list of the VOBJECT 


// 
// getParent 


[| 
// returns the parent VOBJECT 


// 
// get COMPONENT 


// 
// returns an COMPONENT pointer if one ts contained in this 
// V-OBJECT 


// 

// dumpSubtree 

// 

// attempts to rebuild files from versitoned objects onto 

// the UNIX subdirectory referenced by the UNIX variable 
// PROTOTYPE 


// 
// releaseLockSubtree 


// 

// resets that node and every node under it to zero 

// epoch time (sometime in 1969) 

// 

// getChildren 

// 

// returns a list of the children of the current VOBJECT 


[| 

// getChildPtr 

/| 

// returns a Boolean TRUE if the Cardinality of the list 
// referenced by the theChildPtr is > zero 

// 

// checkoutCOMPONENTNode 

a 

// attempts to rebuild the .ps, .graph, .imp.psdl, .spec.psdl 
// and .a files of an operator/type stored in the Design 
// Database 
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#endit 





//.Filename......: versitoned_object.czz 
fe oCCs ID.......: aed 

//.Release No....: 1 

PP OGLE.....2.004.: » 9/16/91 
//.Author......... Garry Lewis 

S) ooccn eee : Drew Dwyer 


@eeeoeoeoeoereoeeoeeees 


// SCCS ID follows: will compile to place date/time stamp in object file 


static char versioned_object_cxxSccsId{] = "@(#) versioned_object.cxx 1.3\t9/16/91"; 
// Contents ————————— — ——_ — ——_—_- 


// 

// V-OBJECT::V.OBJECT 

// V-OBJECT::V.OBJECT 

// V-OBJECT::Destroy 

// V-OBJECT::getDirect Type 

// V-OBJECT::connect_vobject_to_thread 
// V-OBJECT::setParent 

// V-OBJECT::setNodeName 

// V-OBJECT::getNodeName 

// V-OBJECT::get VObjName 

// V-OBJECT::getName 

// V-OBJECT::reset Visited Flag 

// V-OBJECT::set VisitedFlag 

// V-OBJECT::get VisitedFlag 

// V-OBJECT::get VObjComponentsName 
// V-OBJECT:: display VersionNumber 
// V-OBJECT::get VersionNumber 

// V-OBJECT::dump VObjSummary 
// V-OBJECT::setCreationDate 

// V-OBJECT::getCreationDate 

// V-OBJECT::setLock 

//| V-OBJECT::get Worker 

// V-OBJECT::getCreator 

[/[ V-OBJECT::set Worker 

// V-OBJECT::resetLastOpTrue 

// V-OBJECT::resetLastOp False 

// V-OBJECT::get_last_operation 

// V-OBJECT::releaseLock 

// V-OBJECT::getLockTime 

// V-OBJECT::getDescription 

// V-OBJECT::listChildren 

// V-OBJECT::longlistOperatorNames 
//{ V-OBJECT::listOperatorNames 
// V-OBJECT::updateDescription 
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// V-OBJECT::addCOMPONENTNode 
// V-OBJECT::deleteChildNode 

// V-OBJECT::addChildNode 

// V-OBJECT::getParent 

// V-OBJECT::get COMPONENT 

// V-OBJECT::dumpSubtree 

// V-OBJECT::releaseLockSubtree 

// V-OBJECT::getChildren 

// V-OBJECT::getChildPtr 

// V-OBJECT::checkoutCOMPONENTNode 
// 

// Description 


// 


// methods for manipulating versioned objects 


#include <GlobalEntities.h> 
#include <Directory .h> 


#ifndef _VERSIONED_OBJECT _H 
#include ”versioned.object.h” 
#endif 


#ifndef _TRACER_H 
#include ”tracer.h’” 
#endif 

#ifndef _DDBDEFINES-_H 


#include ”ddbdefines.h’” 
#endif 


// Constructor // 
Ay End Interface Requirements ——-—_—-——_-___—_——- 


extern Type +V_-OBJECT_OType; 
extern userPtr; 


V_OBJECT::V_OBJECT(APL +*theAPL) : Object(theAPL) 


// This is an activation constructor required by ONTOS. 

// ONTOS calls the activation constructor anytime an object 
// is brought into memory. Note the constructor passes 

// theAPL to the base class APL constructor. 
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// 


// Parameter 


uy 
// theAPL 
le 


// A pointer to an APL (for Activation Parameter List) a 
// structure. 


// empty by design 


// Constructor // 


V OBJECT::V OBJECT(int versionNum) 


/{ Summary————— ———— ——— —— —— 


[| 


// Parameter 


// 


// Functional Description 


// 


initDirectType(V-OBJECT OType); 

the VersionNumber = versionNum; 

creationDate = setCreationDate(); 

lockTime = 0; 

last-op.checkin = TRUE; 

visited = FALSE; 

creator = new char (strlen(userPtr)+1]; 

strcpy(creator,userPtr); 

worker = (char +*)0; 

node_name = (char *)0; 

theDescriptionPtr.initToNull(); 

theCOMPONENTPtr. init ToNull(); 

theThreadPtr.init ToNull(); 

theParentPtr.initToNull(); 

List «newChildList = new List(V-OBJECT_OType); 

newChildList — putObject(); 

theChildPtr.Reset(newChildList, this); 
putObject(); 


// Member Function (in lieu of destructor)// 


void V _OBJECT::Destroy(Boolean aborted) 
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// This one ts semi tricky. Destroy redefined the Destroy 

// function inherited from the class CleanupObj. Destroy() 
// 1s used to delete CleanupObj objects and those of all its 
// derived classes. In defining any class that 1s directly 

// or indirectly derived from CleanupObj, provide the 

// function Destroy(Boolean aborted) in place of a destructor 
// tf there is any special processing required when the 

// object’s memory ts deallocated. 


// 


// Parameter 


// 
// aborted 


// If Destroy() ts called as a result of an abort, aborted 
// is set to TRUE; if it is called to delete the object for 
// other reasons, aborted ts set to False. 


// 


// Functional Description 


// 


// CleanupObj in effect provides an audit trail of the 
// creation of all stack-based instances of its derived 
// classes, so that they can be cleanly deleted tn the 
// case of an abort during exception handling. Hence 
// the Destroy function. 


Object::Destroy(aborted); 


// Member Function // 
Types V-OBJECT::getDirectType() 


return V-OBJECT_OType; 
} 


// Member Function // 
void V-OBJECT::connect vobject to thread(THREAD +#threadPtr) 


theThreadPtr.Reset(threadPtr,this); 
putObject(); 


void V_OBJECT::setParent(V_OBJECT *parent) 


theParentPtr.Reset(parent,this); 
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putObject(); 


void V-OBJECT::setNodeName(char *tree node.name) 


} 


char +token = (char *)0; 
token = strrchr(tree node name,’.’); 
if (token) 


node-name = new char[strlen(token)+1]); 
strcpy(node_name,token); // token in the subtree 
nodename++; // discard period (.) 


else 


{ 


node_name = new char [strlen(tree node_name)+1]; 
strcpy(node_name,tree_node.name); // must be root root. 


putObject(); 


char *V_OBJECT:: get NodeName() 


{ 
} 


return node_name; 


char * VCOBJECT::getName() 


{ 


char #name; 
Directory *directory; 


if(!this) 


cerr < "<ERROR: cannot get the name of a null VLOBJECT>\n"; 
return NULL; 


} 
if (!theThreadPtr) 


cerr < "<ERROR: cannot display the name of a null thread>\n"; 
return NULL; 


} 


else 


THREAD *myThreadPtr = (THREAD+*) theThreadPtr.Binding(this); 
name = myThreadPtr — Name(); 

OC_getNameComponents(name, &directory, &name); 

return name; 


} 


Zo 


// Member Function // 


void V_-OBJECT::get VOb)Name() 
i 


char *name; 
Directory *directory; 


if(!this) 
{ 


cerr < “<ERROR: cannot get the name of a null V_OBJECT>\n"; 
return; 


} 
if ('theThreadPtr) 


cerr < "<ERROR: cannot display the name of a null thread>\n"; 
return; 


} 


else 


THREAD *«myThreadPtr = (THREAD*) theThread Ptr. Binding(this); 
name = myThreadPtr — Name(); 

OC_getNameComponents(name, &directory, &name); 

cout < name < "\n"; 


} 
} 


// Member Function // 


void V_-OBJECT::get VObjComponentsName() 
{ if('this) 
{ 


cerr < "<ERROR: cannot get the names of a null V.OBJECT>\n"; 
return; 


} 
if (!theCOMPONENTPtr) 
{ 


cerr < "<This v_object does not have an COMPONENT component>\n", 
return; 


} 


else 


COMPONENT *«myCOMPONENTPtr = (COMPONENTs) theCOMPONENTPtr.Binding(this); 
myCOMPONENTPtr — getComponentNames(); 


} 
} 


// Member Function // 
void V_OBJECT::display VersionNumber() 


//{ Summary ———————————— ————— . 
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// 


// This function displays the verston number of an object. 


cout < theVersionNumber < "\n"; 


}; 


int V-OBJECT::get VersionNumber{) 
{ 


return theVersionNumber; 


//[ Member Function // 


void V_-OBJECT::dumpVObjSummary({) 
{ 

// display VersionNumber(); 
cerr << "Date: "; 
cout < ctime(&creationDate); 
cerr < "Creator: "; 
cout < getCreator() < "\n"; 
cerr < "Checked out out by "; 
if (worker) 

{ 

cout < worker < "\n"; 

} 
else 

cout < "NONE \n"; 
cerr < "LockTime: "; 
if (‘lockTime==0) 

cout < ctime(&lockTime); 
else 

cout < "NONE\n\n"; 
cerr < =\n' 

< "Description\n" 


get Description(); 


/[[Member Function // 
time_t V-OBJECT::setCreationDate() 
time.t mytloc=0; 


time.t theTime; 
return theTime = time(mytloc); 


} 
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//[Member Function // 
void V_OBJECT::setLock() 


lockTime = setCreationDate(); 


} 


/ [Member function// 
char *+V_OBJECT::get Worker() 
{ 

return worker; 


} 
//[Member function// 


char *V_OBJECT::getCreator() 
{ 


} 


//[Member function// 


return creator; 


void V-OBJECT::set Worker() 
{ 


char *temp-_-worker = new char [strlen(userPtr)+1]; 
strcpy(temp-_worker,userPtr); 
if (worker) 


{ 
cerr < “resetworker --> from "< getWorker() <<" to "< temp_worker <"\n"; 
delete worker; 


} 


else 

cerr < "setworker --> to " < temp_worker <"\n"; 
worker = new char{strlen(temp-_worker)+1]; 
strcpy(worker,temp_worker); 


/[Member Function // 


void V_OBJECT::reset VisitedF lag() 


{ 
visited = FALSE; 


} 
void V_-OBJECT::set Visited Flag() 
{ 
visited = TRUE; 
} 


Boolean V-OBJECT::get Visited Flag() 
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{ 


return visited; 


} 
//[Member Function // 


void V_-OBJECT::reset Last Op True() 


last_op-checkin = TRUE; 
} 


void V_OBJECT::reset LastOpFalse() 


last_op.checkin = FALSE; 
} 


/[Member Function // 
Boolean V-OBJECT::get last_operation() 


return last_op_checkin; 


} 
/[Member Function // 


int V-OBJECT::releaseLock() 


if (!worker) 


{ 
last_op_checkin = TRUE; 
lockTime = 0; 
return SUCCESS; 

} 


if (stremp(userPtr,get Worker())==0) 


last_op_checkin = TRUE; 
lockTime = 0; 

delete worker; 

worker = (char *)0; 
return SUCCESS; 


cerr < "<ERROR: Only " < getWorker() <'" May unlock this object!...Aborting>\n"; 
return FAILED; 


} 
} 


//Member Function // 
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time_t V-OBJECT::getCreationDate() 
{ 


} 


// Member Function // 


return creationDate; 


time_t V-OBJECT::getLockTime() 


return lockTime; 


} 


// Member Function // 
void V_-OBJECT::getDescription() 
I] Sanne ee 


// This function displays the description of an object 


Vy 


if(!this) 


cout < "<ERROR: cannot get the description of a null V_OBJECT>\n"; 
return; 


if ('theDescriptionPtr) 


{ 


cerr < "<This v.object does not have a description>\n"; 
return; 


else 


{ 


TEXT_OBJECT *myTextObjectPtr = 
(TEXT-OBJECT+) theDescriptionPtr.Binding(this); 
my TextObjectPtr —text(cout); 


} 
} 


// Member Function // 
void V-OBJECT::updateDescription(char +fileName, ifstream& input-file_stream) 
if(!this) 


cerr < "<ERROR: cannot update the description of a null VOBJECT>\n"; 
return; 


} 
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else 


if (strcmp(userPtr,getCreator())==0) 
if(!theDescriptionPtr) 


TEXT_OBJECT +*textObjectPtr = new TEXT OBJECT(); 
textObjectPtr — append(fileName, input_file_stream); 
textObjectPtr —putObject(); 
theDescriptionPtr.Reset(textObjectPtr, this); 


} 


else 


TEXT_OBJECT *textObjectPtr = 

(TEXT_OBJECT+) theDescriptionPtr.Binding(this); 
textObjectPtr — resetTheText(); 
textObjectPtr — append(fileName, input-file_stream); 


} 
} 


else 
cerr < "<ERROR: only " < getCreator() < " may update description. Aborting...>\n"; 


} 
putObject(); 


/{ Member Function // 
void V-OBJECT::addCOMPONENTNode(COMPONENT #«myCOMPONENTPtr) 
if (!this) 


cerr < "<ERROR: cannot set the COMPONENT node of a null V_OBJECT\n"; 
return; 


} 
if (imyCOMPONENTPtr) 


cerr < "<ERROR: cannot give to a V_OBJECT a null COMPONENT>\n"; 
return; 


theCOMPONENTPtr.Reset(my COMPONENTPtr, this); 
putObject(); 


// Member Function // 
void V_OBJECT::deleteChildNode(V_OBJECT *myV_Ob}Ptr) 


List *child_nodes = (List +)theChildPtr.Binding(this); 


if (!this) 
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cerr < "<ERROR: cannot delete the child node of a null V_OBJECT\n"; 
return; 


} 
if (!child nodes) 


cerr < "<ERROR: cannot remove a NULL child>\n"; 
return; 


long location =0; 
if (child _nodes—isMember(my V_ObjPtr)) 
{ 


location = child-nodes—Index(my V_ObjPtr); 
child nodes— Remove(location); 
child nodes—putObject(); 


} 
} 


// Member Function // 

void V_OBJECT::addChildNode(V-OBJECT *myV_ObjPtr) 
List *child_nodes = (List *)theChildPtr.Binding(this); 
if (!this) 


cerr < "<ERROR: cannot set the child node of a null V_OBJECT\n"; 
return; 


} 
if (!child nodes) 
{ 


cerr < "<ERROR: cannot give to a V.OBJECT a null child>\n"; 
return; 


child_nodes—Insert(my V-ObjPtr); 
child_nodes— putObject(); 


} 


/{[Member Function // 
V-OBJECT *V_OBJECT::get Parent() 
{ 
return (V-OBJECT *)(Entity «) theParentPtr.Binding(this); 
} 


COMPONENT *V_OBJECT::getCOMPONENT() 


return (COMPONENT +) (Entity +) theCOMPONENTPtr.Binding(this); 
} 


void V_-OBJECT::listChildren() 
{ 
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if ('this) 
{ 
cerr << "<ERROR: can not dump children of a null VOBJECT!>\n"; 
return; 


} 


if(!theChildPtr) 


cerr < "<ERROR: can not print children of a null childPtr!>\n"; 
return; 


} 


else 


{ 


List *child_nodes = (List +) theChildPtr.Binding(this); 
ListIterator ChildrenPtr(child_nodes); 
V_OBJECT xcnode; 


while(ChildrenPtr.moreData()) 
{ 
cnode = (V-OBJECT *) (Entity *) ChildrenPtr(); 
ceri <<. “Operator: ©"; 
cout < cnode—getNodeName(); 
| [poe OR 
// following for loop provides spacing... 
| | Re 
int i=0; 
for (i=0;i<(PRINT_VERSION_LOCATION-strlen(cnode—getNodeName()));i++) 
cou.<" "; 
cerr << “Version: ";. 
cout < cnode—get VersionNumber(); 
cout < "\n"; 
time_t locktime = cnode—getLockTime(); 
cerr < "Locktime is: " < ctime(&locktime) < "\n"; 
} 


return; 


} 


} 
void V-OBJECT::longlistOperatorNames() 
{ 
if ('this) 
{ 
cerr < "<ERROR: can not dump operators of a null V_OBJECT!>\n"; 
return; 


} 
if(!theChildPtr) 


cerr < "<ERROR: can not print list of a null childPtr!>\n"; 
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return; 


else 


List *child-nodes = (List +) theChildPtr.Binding(this); 
ListIterator Children Ptr(child_nodes); 
V_OBJECT *cnode; 
while(ChildrenPtr.moreData()) 
{ 
cnode = (V-OBJECT +) (Entity +) ChildrenPtr(); 
// tf (cnode->getChildPtr()) 
//{ 
// cnode-> longlistOperatorNames(); 
// } 
cerr < "Operator: "; 
cout < cnode—get NodeName(); 
| [3 EE 
// following for loop provides spacing... 
] | AOR x 
int i=0; 
for (i=0;i<(PRINT_VERSION_LOCATION-strlen(cnode—getNodeName()));1++) 
cout <<" "; 
cerr << "\nVersion: "; 
cout < cnode—getVersionNumber(); 
cout < "\n"; 
timet locktime = cnode—getLockTime(); 
cerr < "Locktime is: " < ctime(&locktime) < "\n"; 
} 
return; 
} 
} 


void V_OBJECT::listOperatorNames() 
{ 


Boolean node_was-visited = FALSE; 
if ('this) 


cerr < "<ERROR: can not dump children of a null V_OBJECT!>\n"; 
return; 


} 
if(!theChildPtr) 


cerr < "<ERROR: can not print children of a null childPtr!>\n"; 
return; 


} 


else 
List +child_nodes = (List *) theChildPtr.Binding(this); 


ListIterator ChildrenPtr(child_nodes); 
V_OBJECT *cnode; 
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} 


int index = 1; 
while(ChildrenPtr.moreData()) 


cnode = (V-OBJECT +) (Entity +) ChildrenPtr(); 
node_was-_visited = cnode—getVisitedFlag(); 
if (cnode—getChildPtr()) 


cnode— listOperatorNames(); 


if (node_was_visited && index > 1) 
{ 
cnode—reset VisitedFlag(); 
cnode—putObject(); 
break; 
} 
else 
{ 
cnode—reset VisitedF lag(); 
cnode—putObject(); 


if (index ==1) 
cnode—set VisitedFlag(); 
index+-+; 
cerr < "Operator: '"; 
cout < cnode—get Name(); 
| [+ #RR RK EEK ERE 
// following for loop provides spacing... 
[| | #e RR RRR REE 
fant 1=0: 
// for (i=0;i< (PRINT. VERSION_LOCATION-strlen(cnode->getName()));1++) 
J) cout <a ae 
cerr << "\nVersion: "; 
cout < cnode—get VersionNumber(); 
cout < "\n"; 
time_t locktime = cnode—getLockTime(); 
cerr < "Locktime is: " < ctime(&locktime) < "\n"; 


reset VisitedF lag(); 
putObject(); 
return; 


void V_OBJECT::releaseLockSubtree() 


{ 


List *child_nodes = (List +) theChildPtr.Binding(this); 
ListIterator ChildrenPtr(child_nodes); 
V_OBJECT *cnode; 


while(ChildrenPtr.moreData()) 
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cnode = (V_OBJECT *) (Entity *) ChildrenPtr(); 
if (cnode—releaseLock()) 

cnode—putOb)ject(); 
else 


{ 
cerr < "<Error while unlocking " < cnode—getName() < " Aborting...>\n"; 
break; // should try to unlock other siblings and their children. 


} 
if (cnode— getChild Ptr) 
{ 
cnode— releaseLockSubtree(); 
} 
} 
return; 


} 


void VOBJECT::dumpSubtree(char +file_write_-option) 
{ 
Boolean node_was-_visited = FALSE; 
Boolean file-operation_successful = FALSE; 
Boolean write_operation = FALSE; 
if (strcmp(file-write_-option,"w")==0 || strcmp(file-write_option,"W")==0) 
write_operation = TRUE; 
if (!this) 
{ 
cerr < "<ERROR: can not dump children of a null V_OBJECT!>\n"; 
return; 


} 
if(!theChildPtr) 


cerr < "<ERROR: can not print children of a null childPtr!>\n"; 
return; 


else 
{ 
List *child_nodes = (List +) theChildPtr.Binding(this); 
ListIterator ChildrenPtr(child nodes); 
V_OBJECT «*cnode; 
int index = 1; 
while (cnode = (V-OBJECT +) (Entity +*)ChildrenPtr()) 
{ 


node_was-_visited = cnode—get Visited Flag(); 
if (cnode—getChildPtr()) 


cnode— dumpSubtree(file-write_option); 


if (node_was-_visited && index > 1) 


{ 


cnode—reset Visited Flag(); 
cnode—putObject(); 
break; 
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} 


else 
{ 
cnode—reset VisitedF lag(); 
cnode—putObject(); 


if (index ==1) 
cnode—set VisitedFlag(); 
else 
{ 
cnode—reset VisitedFlag(); 
cnode—putObject(); 
} 
index+-+; 
long cobjecttocktime = 0; 
cobject_locktime = cnode—getLockTime(); 
if (cobject_locktime>0) // prevent checkout 


{ 


if (strcmp(file_-write_option,"w")==0) // change ”w” to ”r” 


cerr < "<ERROR: Module " < cnode—getNodeName() 
<" locked by : " < cnode—getWorker() 
<" Resetting write option to read-only>\n"; 
strcpy(file_-write option,"r"); 


cerr << "<Caution: " < cnode-getNodeName() 
<" is locked.> \n" < "Date Locked: " 
< ctime(d&cobject_locktime) 
< "Node checked out in read-only mode\n"; 
} 
cerr < "NODENAME ---> " < cnode—getNodeName() <"\n"; 
cerr < "Version: " < cnode—getVersionNumber() < "\n\n"; 
file.operation_successful = cnode—checkoutCOM PONEN TNode(file write option); 
if ((file-operation_successful) && 
((stremp(file_-write-option,"W")==0) || 
(strcmp/(file_write_option,"w")==0))) 


cnode—set Lock(); 
cnode—+set Worker(); 
cnode—reset Last OpFalse(); 
cnode—putObject(); 
} 
if (write_operation) 
strcpy(file-write_option,"w"); 


reset VisitedF lag(); 


putObject(); 
return; 
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List « VCOBJECT::getChildren() 


{ 
List *temp-ist = (List +)theChildPtr.Binding(this); 
if (temp_list—Cardinality() > 0) 
return temp-list; 
else 
return NULL; 
} 


Boolean V-OBJECT::getChildPtr() 


List *temp ist = (List *)theChildPtr.Binding(this); 
if (temp_list—Cardinality() > 0) 

return TRUE; 
else 


return FALSE; 
} 


// Member Function // 
Boolean V-OBJECT::checkoutCOMPONENTNode(char +#file_write_option) 


if (!this) 
{ 


cerr < "<ERROR: cannot checkout COMPONENT nodes of a null V_OBJECT\n"; 
return FAILED; 


} 
if (!theCOMPONENTPtr) 


cerr < "<ERROR: cannot get the source code from a null COMPONENT>\n"; 
return FAILED; 


} 


else 
COMPONENT #myCOMPONENTPtr = (COMPONENT+) theCOMPONENTPtr.Binding(this); 
return (nyCOMPONENTPtr — getComponentSource(file.write_option)); 


} 
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//.Filename......: vobjectfunc.h 
peeoeCe ID.......: 1.3 
//.Release No....: 1 

Pe ale..........: : 9/16/91 

Py eAUIhOT........: : Garry Lewis 
Pies cecscsee0: : Drew Dwyer 


#ifndef _VOBJECTFUNC_H 
#define _VOBJECTFUNC_H 


// SCCS ID follows: will compile to place date/time stamp in object file 
static char vobjectfunc_h_SccslId[] = "@(#)vobjectfunc.h 1.3\t9/16/91"; 


[/ Contents —————————_—_—_—_—_________- 


// 
// VOBJECTFUNC 


// 


// Description 

uy 

// Defines functions manipulating Versioned Objects 
// (Operators) as called by main() 

// 


// Interface Dependencies ————————————— 
i 

// NONE 

// 

// End Interface Dependencies ———————_—_—— —— 


void list-operatorsfunc(int, char +, char +, char *); 
void update_vobject_desc func(int, char *,char +,char +,char *); 
void get_vobject_desc func(int ,char *, char *,char +); 
void get_vobject_date func(int , char *,char *,char *); 
void get_vobject_versions func(int , char +,char *); 
void get_vobject lock func(int, char *, char *, char *); 
void get_vobject_version func(); 
void dump-vobject-summary-func(int , char *,char *,char ¥*); 
void get_vobject-psfilefunc(int , char +, char *,char +, char *); 
void get_vobject_graphfile func(int , char +,char +,char *, char *); 
void get_vobject impfilefunc(int , char *, char *,char *, char *); 
void get_vobject_specfilefunc(int , char *,char +,char *, char *); 
void get_vobject-sourcefile func(int , char +,char *,char *, char *); 
void dump-vobject_files func(int , char +, char *,char *, char *); 
void dump-vobject_tree func(int , char *, char *,char +, char ¥*); 
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void long_list_children_func(int char *, char +, char *); 
void long_list_parentsfunc(int,char *, char *, char *); 
void long-list_operators_func(int, char *, char *, char *); 
void release operator lock func(int, char +, char +#, char *); 
void release subtree lock func(int, char +, char *, char *); 
void add_vobject_and-_subtree func(int , char *, char *); 


// Description ——————————— ——— ——— 


// 


// list.operators_func 

// 

// Provides a list of operators associated with a 
// subtree of a designated versitoned_object. 


// 


// update_vobject.desc_func 


// Updates the description tert of a destgnated verstoned 
// object. 
// 


// get-vobject_desc_func 


// 


// Provides a description of the designated verstoned object. 


iy 
// get-vobject_date_func 


// Displays the date that the verstoned object was created. 


// 


// get-vobject_versions_func 


// Checks the thread and displays the different versions. 
// 

// get-vobject_lock_func 

// 

// Displays a 26 character text entry reflecting the time 
// and date that the versioned object was locked. 


// 


// get-vobject_verston_func 


// returns the version of the verstoned object instance. 


a 


// dump_vobject_summary_func 


// 

[/ displays predetermined attribute fields to stdout/stderr. 
// 

// get-vobject_psfile_func 

// 

// rebuilds the CAPS postscript file to the PROTOTYPE 
// directory. 

// 

// get-vobject_graphfile_func 


// 
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// rebuilds the CAPS graph file to the PROTOTYPE directory. 
// 


// get-vobject_impfile_func 


// rebuilds the CAPS implementation file to the PROTOTYPE directory. 
// 


// get-vobject_specfile_func 


// rebuilds the CAPS specification file to the PROTOTYPE directory. 
// 


// get-vobject_sourcefile_func 


// 
// rebuilds the CAPS source file to the PROTOTYPE directory. 


// 


// dump-vobject_files_func 


// rebuilds all of the above files (of one operator) to the 
// PROTOTYPE directory. 
// 


// dump_vobject_tree_func 


// rebuilds all existing TEXT_OBJECT attributes to the PROTOTYPE 
// directory for the entire decomposition of the root operator 

// down to the component operators. May be dumped in "read only” 

// or ”read/write”. When dumped, all versioned objects are 

// locked for modification by other users. 

// 

// long_list.children_func 

// 

// lists the node name and version number of children. 


// 


// long-list_parents_func 


// lists the most current parent (and that parents siblings). 


li 


// long-list_operators_func 


// lists the node name and version number of a node’s children. 


// 


// release_operator_lock_func 


// 


// reset the locktime of a versioned operator. 


// 


// release_subtree_lock_func 


// 
// reset the locktime of a versioned operator and all children 
// of that versioned operator. 


// 


// add_vobject_and_subtree_func 


// 


// the reverse of a dumping vobjects. this checks versioned 
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// objects back into the database, versioning them if necessary. 
// 
// End Description ————————————— —— —- 


#tendif // end vobjectfunc header function 
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//.Filename......: vobjectfunc.cxz 
fyeoCCs ID.......: 1.3 
//-Release No....: 1 

Pe eate..........: : 9/16/91 
//.Author......... Garry Lewis 
Pete .2..2.: Drew Dwyer 


// SCCS ID follows: will compile to place date/time stamp in object file 
static char vobjectfunc_cxx_SccsId[] = "@(#)vobjectfunc.cxx 1.3\t9/16/91"; 


// Contents —————————————————- 
i 
// list_operators_func 
// update_vobject_desc_func 
// get-vobject_desc_func 
// get-vobject_date_func 
// get-vobject_versions_func 
// get-vobject_lock_func 
// get-vobject_version_func 
// dump-vobject_summary-_func 
// get-vobject_psfile_func 
// get-vobject_graphfile_func 
// get-vobject_impfile_func 
// get-vobject_specfile_func 
// get-vobject_sourcefile_func 
// dump-vobject_files_func 
// dump-vobject_tree_func 
// long-lhst.children_func 
// long_list_parents_func 
// long_list_operators_func 
// release_operator_lock_func 
// release_subtree_lock_func 
// add_vobject_and_subtree_func 
// 
// Description 
// 


// this contains the functions for manipulating versioned objects 


// Interface Dependencies ————————————— 


// 


#include <stream.hxx> 
#include <List.h> 
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#include <Directory.h> 


extern "C--"{ 
#include <stdlib.h> 


} 


#ifndef _DIRECTORY-H 
#Hinclude ”directory.h” 
#endif 


#ifndef _TREE_H 
#include ”tree.h” 
#Hendif 


#ifndef _TREENODE_H 
#include ”treenode.h” 
#endif 


#ifndef _PROTOTYPE_H 
#include ’prototype.h’ 
#endif 


#ifndef _COMPONENT_H 
#include ” component.h” 
#endif 


#ifndef _VOBJECT_H 
#include ”versioned_object.h” 
#endif 


#ifndef _THREAD_H 
#include ”thread.h” 
#Hendif 


#ifndef _VOBJECTFUNC_H 
#Hinclude ”vobjectfunc.h” 
#endif 


#tifndef _DDBDEFINES_H 
#include ”ddbdefines.h” 
#Hendif 


i 
// End Interface Dependencies —— 


extern Type *+ THREAD_OType; 
extern Directory *+prototype-dir; 
PROTOTYPE +#prototypeptr; 
THREAD «sthreadPtr; 
COMPONENT *COMPONENTPtr; 
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long vobject_locktime =0; 


void list-operatorsfunc(int number-_arguments, char *protoname, 
char *operatorname, char *versionstr) 


char +prototype name = new char [strlen(protoname)+5]; 
strcpy(prototype name,proto_.name); 
strcat(prototype name, PROTOTYPE_EXT); 

switch (number-arguments) 


{ 


case 2: 
prototypeptr = (PROTOTYPE+*)OC lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD +*)OClookup(operator_name); 
if (threadPtr) 
{ 

V_OBJECT *vobjectPtr; 

vobjectPtr = threadPtr—current(); 

cerr < "Operator: "; 

cout < vobjectPtr—getName(); 

cerr < "\nVersion: "; 

cout < vobjectPtr—get VersionNumber(); 


cout < ne 
time_t locktime = vobjectPtr—getLockTime(); 
cerr < “"Locktime is: " < ctime(&locktime) < "\n"; 


vobjectPtr —listOperatorNames(); 


} 


else 
{ 
cout < "<Error getting thread in LIST OPERATORS: >\n"; 
} 
} 


else 


{ 


cout < "<Error getting Prototype in LIST OPERATORS: >\n"; 


} 


break; 

case 3: 
prototypeptr = (PROTOTYPE+*)OC lookup(prototypename); 
if (prototypeptr) 


threadPtr = (THREAD +*)OC Jookup(operator_name); 
if (threadPtr) 
{ 
V_OBJECT *vobjectPtr; 
vobjectPtr = threadPtr—version(atoi(versionstr)); 
cerr < "Operator: "; 
cout < vobjectPtr—getName(); 
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cerr < '"\nVersion: "; 

cout < vobjectPtr—get VersionNumber(); 

cout <n: 

time.t locktime = vobject Ptr—getLockTime(); 

cerr < “"Locktime is: " < ctime(&locktime) < "\n"; 
vobjectPtr —listOperator Names(); 


} 


else 


{ 


cout < "<Error getting thread in GET. VOBJECT_DESC:>\n"; 


} 


else 


{ 


cout < “<Error getting Prototype in GET_VOBJECT_DESC:>\n"; 


} 
break; 


default: 
cout < "<ERROR: invalid number args for get vobject description>\n"; 
} 


} 


void update_vobject_desc func(int number-arguments,char +protoname, 
char *operatorname, char filename, 
char *versionstr) 


char *+prototypename = new char [strlen(proto.name)+5]; 
strcpy(prototy pe_name,proto.name); 
strcat(prototype name, PROTOTYPE-EXT); 


ifstream description file; 
description file.open(filename); 
if (!description file) 
cout < "<Description File not Found! >\n" 
< "<Abnormal terminate from update vobject_desc. func>\n"; 
else 


switch (number-arguments) 


{ 


case 3: 
prototypeptr = (PROTOTYPE*)OC_lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD +*)OClookup(operator_name); 
if (threadPtr) 


V.OBJECT +vobjectPtr; 
vobjectPtr = threadPtr—current(); 
vobject Ptr —updateDescription(filename,description file); 


} 


else 
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{ 


cout < "<Error getting thread in UPDATE. VOBJECT_DESC:>\n"; 


} 
} 
else 
{ 
cout < "<Error getting Prototype in UPDATE.VOBJECT_DESC:>\n"; 
break; 
case 4: 
prototypeptr = (PROTOTYPE+)OC_lookup(prototypename); 
if (prototypeptr) 


threadPtr = (THREAD *)OCookup(operator_name); 
if (threadPtr) 


V_OBJECT x*vobjectPtr; 
vobjectPtr = threadPtr—version(atoi(versionstr)); 
vobjectPtr —updateDescription(filename,description file); 


} 
else 
{ 
cout < "<Error getting thread in UPDATE VOBJECT_DESC:>\n"; 
} 
} 
else 
{ 
cout < "<Error getting Prototype in UPDATE.VOBJECT_DESC:>\n"; 
break; 
default: 
cout < "<ERROR: invalid number args for update vobject description>\n"; 


} 
} 


void get_vobject_desc func(int number_arguments,char *protoname, 
char *operator.name,char +*versionstr) 


char *prototype.name = new char (strlen(protoname)+5]; 
strcpy(prototype name,proto name); 


strcat(prototype name,PROTOTYPE-EXT); 


switch (number_arguments) 


case 2: 
prototypeptr = (PROTOTYPEx)OC_lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD +*)OC_lookup(operator_name); 
if (threadPtr) 
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V-_OBJECT *vobjectPtr; 
vobjectPtr = threadPtr—current(); 
vobjectPtr —getDescription(); 


} 


else 


{ 
cout < "<Error getting thread in GET_VOBJECT_DESC: >\n"; 
} 


else 


{ 


cout < "<Error getting Prototype in GET_VOBJECT_DESC:>\n"; 
} 
break; 
case 3: 
prototypeptr = (PROTOTYPE+)OC lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD *)OC Jookup(operator_name); 
if (threadPtr) 


V-_OBJECT *vobjectPtr; 
vobjectPtr = threadPtr—version(atoi(versionstr)); 
vobjectPtr —getDescription(); 


} 


else 


{ 
cout < "<Error getting thread in GET_VOBJECT_DESC: >\n"; 
} 
} 


else 


{ 


cout < "<Error getting Prototype in GET_VOBJECT_DESC: >\n"; 


} 
break; 
default: 
cout < "<ERROR: invalid number args for get vobject description>\n"; 
} 
} 


void release_subtree Jock func(int number-arguments, char +protoname, 
char *operator_name,char +*versionstr) 


char *prototypename = new char [(strlen(protoname)+5]; 


strcpy(prototy pe name,proto.name); 
strcat( prototype name, PROTOTY PE_EXT); 


switch (number_arguments) 


{ 


case 2: 
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prototypeptr = (PROTOTYPEs)OC lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD +*)OClookup(operator_name); 
if (threadPtr) 


V.OBJECT +*vobjectPtr; 
vobjectPtr = threadPtr—current(); 


if (vobjectPtr—releaseLock()) 


vobjectPtr— putObject(); 
vobject Ptr—releaseLockSubtree(); 


} 


else 
cerr < "<Error: Couldn’t unlock "<vobjectPtr-getName() 
<" Aborting releaseLock for rest of subtree>\n"; 


cout < "<Error getting thread in SUBTREE RELEASE_LOCK:>\n"; 


} 


else 


{ 


cout < "<Error getting Prototype in SUBTREE RELEASE_LOCK:>\n"; 


break; 

case 3: 
prototypeptr = (PROTOTYPE*)OC lookup(prototype name); 
if (prototypeptr) 


threadPtr = (THREAD *)OCookup(operator_ name); 
if (threadPtr) 


V_OBJECT *vobjectPtr; 
vobjectPtr = threadPtr—version(atoi(versionstr)); 
if (vobjectPtr —releaseLock()) 


vobjectPtr—put Object(); 
vobjectPtr —releaseLockSubtree(); 


} 


else 
cerr < "<Error: Couldn’t unlock "<vobjectPtr-getName() 
<" Aborting releaseLock for rest of subtree>\n"; 


cout < "<Error getting thread in SUBTREE RELEASE_LOCK:>\n"; 
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else 


{ 


cout < “<Error getting Prototype in SUBTREE.RELEASE_LOCK: >\n"; 


} 
break; 


default: 
cout < "<ERROR: invalid number args for subtree release lock>\n"; 


} 
} 


void release_operator Jock func(int number-arguments, char +proto_name, 
char *operator_name,char +versionstr) 


char +prototypename = new char ([strlen(protoname)-+5]; 
strcpy(prototype name,proto_name); 


strcat(prototype name,PROTOTYPE_EXT); 


switch (number-arguments) 


{ 
case 2: 
prototypeptr = (PROTOTYPE+)OC ookup(prototype.name); 
if (prototypeptr) 
threadPtr = (THREAD +*)OC Jookup(operator name); 
if (threadPtr) 
V_OBJECT +*vobjectPtr; 
vobjectPtr = threadPtr—current(); 
if (vobjectPtr—releaseLock()) 
vobjectPtr—putObject(); 
else 
cerr < "<Error: Couldn’t unlock "“<vobjectPtr—getName() 
<"“ Aborting release lock>\n"; 
} 
else 
{ 
cout < "<Error getting thread in RELEASELOCK:>\n"; 
} 
} 
else 
{ 
cout < "<Error getting Prototype in RELEASELOCK:>\n"; 
break; 
case 3: 
prototypeptr = (PROTOTYPE+)OC _lookup(prototypename); 
if (prototypeptr) 


threadPtr = (THREAD +*)OClookup(operator name); 
if (thread Ptr) 


{ 
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V_OBJECT *vobjectPtr; 
vobjectPtr = threadPtr—version(atoi(versionstr)); 
if (vobjectPtr—releaseLock()) 
vobject Ptr—putObject(); 
else 
cerr < "<Error: Couldn’t unlock "<vobjectPtr—getName() 
<" Aborting release lock>\n"; 


cout < "<Error getting thread in RELEASELOCK:>\n"; 


} 


else 


{ 


cout < "<Error getting Prototype in RELEASELOCK:>\n"; 


break; 
default: 
cout < "<ERROR: invalid number args for release lock>\n"; 


} 
} 


void get_vobject_date func(int number_arguments, char +proto_name, 
char *operator_name,char *versionstr) 
{ 


char *prototype_-name = new char [strlen(protoname)+5]; 
strcpy(prototype name,proto_name); 

strcat(prototype name, PROTOTYPE-EXT), 

time_t creation date; 


switch (number_arguments) 


{ 


case 2: 
prototypeptr = (PROTOTYPE*)OC lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD *)OC lookup(operator_ name); 
if (threadPtr) 


{ 
V.OBJECT *vobjectPtr; 


vobjectPtr = threadPtr—current(); 
creation.date = vobjectPtr —getCreationDate(); 
cout < ctime(&creation-date) < "\n"; 


cout < "<Error getting thread in GET_VOBJECT_DATE: >\n"; 


else 
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{ 


cout < "<Error getting Prototype in GET_VOBJECT_DATE:>\n"; 


} 
break; 
case 3: 
prototypeptr = (PROTOTYPEs)OC-lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD *)OC_lookup(operator name); 
if (thread Ptr) 


V_OBJECT *vobjectPtr; 

vobjectPtr = threadPtr—version(atoi(versionstr)); 
creation_date = vobjectPtr —getCreationDate(); 
cout < ctime(&creation_date) < "\n"; 


else 


{ 
cout < "<Error getting thread in GET_VOBJECT_DATE: >\n"; 
} 
} 


else 


{ 


cout < "<Error getting Prototype in GET_VOBJECT_DATE:>\n"; 


break; 
default: 
cout < "<ERROR: invalid number args for get vobject date>\n"; 
} 
} 


void get_vobject_versions func(int number-arguments, char *proto_name, 
char +operator_name) 


char *prototype.name = new char [strlen(proto.name)+5]; 
strcpy(prototype name,proto_name); 


strcat(prototype name, PROTOTYPE_EXT); 


switch (number_arguments) 


{ 

case 2: 
prototypeptr = (PROTOTYPE*)OC lookup(prototy pe_name); 
if (prototypeptr) 


threadPtr = (THREAD *)OC lookup(operator_name); 
if (threadPtr) 


{ 


threadPtr—display Thread Versions(); 


} 


else 


{ 
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cout < "<Error getting thread in GET.VOBJECT_VERSIONS:>\n"; 
} 
} 


else 


{ 


} 
break; 


default: 
cout < "<ERROR: invalid number args for get vobject VERSIONS>\n"; 


} 


cout < "<Error getting Prototype in GET_.VOBJECT.VERSIONS:>\n"; 


} 


void get_vobject lock func(int number_arguments, char *proto_name, 
char *operator_name,char +versionstr) 
{ 


char *prototype_name = new char (strlen(proto_name)-+5}; 
strcpy(prototype_name,proto_name); 

strcat(prototype name,PROTOTY PE_EXT); 

time_t lock_time; 


switch (number-_arguments) 


{ 


case 2: 


prototypeptr = (PROTOTYPE*)OC _lookup(prototypename); 
if (prototypeptr) 


threadPtr = (THREAD *)OCookup(operator_name); 
if (threadPtr) 
{ 

V_OBJECT *vobjectPtr; 

vobjectPtr = thread Ptr—current(); 

lock_time = vobjectPtr —getLockTime(); 

cerr < "Locktime: "; 

cout < ctime(&locktime) < "\n"; 


} 


else 


{ 


cout < "<Error getting thread in GET_VOBJECT_LOCK:>\n"; 


} 


else 


{ 
cout < "<Error getting Prototype in GET. VOBJECT_LOCK:>\n"; 


} 
break; 


case 3: 


prototypeptr = (PROTOTYPE*)OC_lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD *)OC Jookup(operator name); 
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if (thread Ptr) 


{ 
V-OBJECT +vobjectPtr; 


vobjectPtr = threadPtr—version(atoi(versionstr)); 
lock.time = vobjectPtr +getLockTime(); 

cerr < "Locktime: "; 

cout < ctime(&lock.time) < "\n"; 


cout < "<Error getting thread in GET. VOBJECT_LOCK: >\n"; 


} 


else 


{ 


cout < "<Error getting Prototype in GET_VOBJECT_LOCK:>\n"; 


} 
break; 


default: 
cout < "<ERROR: invalid number args for get vobject lock>\n"; 


} 
} 


void get_vobject_version func() 


{ 


cout < "Not implemented. Unclear specs for get version of vobject\n"; 


} 


void dump-vobject_summary-func(int number_arguments, char *protoname, 
char +operatorname,char #versionstr) 


char *prototype_name = new char [strlen(protoname)+5]; 
strepy(prototy pe name,proto_name); 
strcat (prototype name, PROTOTYPE_EXT); 


switch (number-_arguments) 


{ 


case 2: 
prototypeptr = (PROTOTYPE+*)OC_lookup(prototypename); 
if (prototypeptr) 


threadPtr = (THREAD +)OCookup(operator_name); 
if (threadPtr) 


V-OBJECT +vobjectPtr; 
vobjectPtr = threadPtr—current(); 
vobject Ptr—dumpVObjSummary(); 


} 


else 


{ 
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cout < "<Error getting thread in GET_VOBJECT_SUMMARY: >\n"; 


} 
} 


else 


{ 


cout < "<Error getting Prototype in GET_VOBJECT_SUMMARY:>\n"; 
} 
break; 
case 3: 
prototypeptr = (PROTOTYPE*)OC ookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD +*)OC_lookup(operator name); 
if (thread Ptr) 


V_OBJECT *vobjectPtr; 
vobjectPtr = threadPtr—version(atoi(versionstr)); 
vobjectPtr—dump VObjSummary(); 


} 


else 


cout < "<Error getting thread in GET_VOBJECT_SUMMARY: >\n"; 
} 
j 


else 


{ 


cout < "<Error getting Prototype in GET_VOBJECT_SUMMARY: >\n"; 


break; 
default: 
cout < "<ERROR: invalid number args for get vobject summary>\n"; 


} 
} 


void get_vobject _psfile func(int number_arguments, char *proto_name, 
char *xoperator_name,char +file_write_option,char *versionstr) 


char *prototypename = new char ([strlen(protoname)+5]; 
strcpy(prototype name,proto_name); 
strcat(prototype name,PROTOTYPE_EXT); 


switch (number_arguments) 


{ 

case 2: 
prototypeptr = (PROTOTYPE*)OC Jookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD *)OC_lookup(operator name); 
if (thread Ptr) 


V.OBJECT +*vobjectPtr; 
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vobjectPtr = threadPtr—current(); 
vobjectlocktime = vobjectPtr—getLockTime(); 
if (vobjectlocktime>0) // prevent checkout 


{ 
if (stremp/(file_-write_option,"w")==0) // change ”w” to ”r” 
cerr < "“<ERROR: Module “ < vobjectPtr—getNodeName() 
<"“ locked by : “ < vobjectPtr—get Worker() 
<" Resetting write option to read-only>\n"; 
strcpy(file_write _option,"r"); 


cerr << “<Caution: " < vobjectPtr-getNodeName() 
<" is locked.> \n" < "Date Locked: " 
< ctime(&vobject locktime) 
< “operator files checked out in read-only mode\n"; 
} 
else 
cerr < "NODENAME ---> " < vobjectPtr—getNodeName() <"\n"; 
COMPONENTPtr =vobjectPtr—getCOMPONENT(); 
if ((COMPONENTPtr—get PSfile(file-write_option)) && 
((stremp(file_writeoption,"W")==0) || 
(stremp(file_write_option,"w")==0))) 


vobjectPtr — setLock(); // set root lock 
vobjectPtr — set Worker(); 

vobjectPtr — reset LastOpFalse(); 
vobject Ptr—putObject(); 


cout < "<Error getting thread in GET_VOBJECT_PS: >\n"; 


} 


else 


{ 


cout < "<Error getting Prototype in GET_VOBJECT_PS:>\n"; 
} 
break; 
case 3: 
prototypeptr = (PROTOTYPE*)OC_lookup(prototypename); 
if (prototypeptr) 


threadPtr = (THREAD *)OC Jookup(operator name); 
if (threadPtr) 
{ 
V.OBJECT *vobjectPtr; 
vobjectPtr = thread Ptr—version(atoi(versionstr)); 
vobject locktime = vobject Ptr—getLockTime(); 
if (vobject_locktime>0) // prevent checkout 


{ 
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rp ped 


if (stremp(file_write_option,"w")==0) // change ”w” to ”r 


cerr < "<ERROR: Module " < vobjectPtr—getNodeName() 
<" locked by : " < vobjectPtr—getWorker() 
<" Resetting write option to read-only>\n"; 
strepy(file_write option,"r"'); 
} 
cerr << "<Caution: " < vobjectPtr—-getNodeName() 
<" is locked.> \n" 
< "Date Locked: "< ctime(&vobjectlocktime) 
< “operator files checked out in read-only mode\n"; 
} 
else 
cerr < “WODENAME ---> " < vobjectPtr—getNodeName() <"\n"; 
if ((stremp(file_write_option,"W")==0) || 
(stremp(file_write_option,"“w")==0)) 


vobjectPtr — setLock(); // set root lock 
vobjectPtr — set Worker(); 

vobjectPtr — resetLastOpFalse(); 
vobjectPtr—putObject(); 


} 
COMPONENTPtr = vobjectPtr-getCOMPONENT(); 
COMPONENTPtr —getPSfile(file_-writeoption); 
} 


else 


{ 
cout < "<Error getting thread in GET_VOBJECT_PS:>\n"; 
} 
} 


else 


{ 


cout < "<Error getting Prototype in GET_VOBJECT_PS>"; 


} 
break; 


default: 
cout < "<ERROR: invalid number args for get vobject PS>\n"; 


} 


void get_vobject _graphfilefunc(int number_arguments, char *proto_name, 
char *operator_name,char +file_write_option,char +versionstr) 
{ 


char *prototypename = new char (strlen(proto.name)+5}; 
strcpy(prototype name,proto_name); 


strcat(prototype name,PROTOTYPE_EXT); 


switch (number_arguments) 


{ 
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case 2: 
prototypeptr = (PROTOTYPE )OC _lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD +*)OC Jookup(operator name); 
if (threadPtr) 
{ 
V.OBJECT *vobjectPtr; 
vobjectPtr = thread Ptr—-current(); 
vobjectlocktime = vobjectPtr—get LockTime(); 
if (vobjectlocktime>0) // prevent checkout 


if (stremp(file-write_option,"w")==0) // change ”w” to ”r” 


cerr < "<ERROR: Module " < vobjectPtr—getNodeName() 
<" locked by : " < vobjectPtr—get Worker() 
<" Resetting write option to read-only>\n"; 
strcepy(file_write-option,"r"); 


cerr < "<Caution: " < vobjectPtr—getNodeName() 
<" is locked.> \n" < "Date Locked: " 
< ctime(&vobjectlocktime) 
< “operator files checked out in read-only mode\n"; 
} 
else 
cerr < "NODENAME ---> " < vobjectPtr—getNodeName() <"\n"; 
COMPONENTPtr =vobjectPtr—getCOMPONENT(); 
if ((COMPONENTPtr—getGRAPHfile(file.write_option)) && 
((stremp(file_write_option,"W")==0) || 
(stremp(file.write_option,"w")==0))) 
{ 
vobjectPtr — setLock(); // set root lock 
vobjectPtr — set Worker(); 
vobjectPtr — reset LastOpFalse(); 
vobject Ptr—putObject(); 


} 


cout < "<Error getting thread in GET.VOBJECT_GRAPH:>\n"; 


} 


else 


{ 


cout < "<Error getting Prototype in GET_VOBJECT_GRAPH:>\n"; 


} 
break; 


case 3: 
prototypeptr = (PROTOTYPE*)OC lookup(prototypename); 
if (prototypeptr) 
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threadPtr = (THREAD *)OC-lookup(operator name); 
if (threadPtr) 
{ 
V_OBJECT *vobjectPtr; 
vobjectPtr = threadPtr—version(atoi(versionstr)); 
vobject_locktime = vobjectPtr—getLockTime(); 
if (vobject_locktime>0) // prevent checkout 


if (strcmp/(file-write_option,"w")==0) // change ”w” to ”r” 


cerr < "<ERROR: Module " < vobjectPtr—get NodeName() 
< " locked by : " < vobjectPtr—get Worker() 
<" Resetting write option to read-only>\n"; 
strcpy(file_write_option,"r"); 


cerr < "<Caution: " < vobjectPtr—getNodeName() 
<" is locked.> \n" 
< "Date Locked: "< ctime(&vobject_locktime) 
< “operator files checked out in read-only mode\n"; 
} 
else 
cerr < "NODENAME ---> " < vobjectPtr—getNodeName() <"\n"; 
if ((strcmp(file-write_option,"W")==0) || 
(stremp(file_write-option,"w")==0)) 


vobjectPtr — setLock(); // set root lock 
vobjectPtr — setWorker(); 

vobjectPtr — resetLastOpFalse(); 
vobject Ptr—putObject(); 


COMPONENTPtr = vobjectPtr+getCOMPONENT(); 
COMPONENTPtr —getGRAPHfile(file-write_option); 


} 


else 


{ 
} 


cout < "<Error getting thread in GET. VOBJECT_GRAPH:>\n"; 


} 


else 


{ 


cout < "<Error getting Prototype in GET_VOBJECT_GRAPH>"; 


} 
break; 


default: 
cout < "<ERROR: invalid number args for get vobject GRAPH>\n"; 


} 
} 


void get _vobject impfilefunc(int number-arguments, char *protoname, 
char +operator_name,char +file.write_option,char *versionstr) 
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char *prototype.name = new char [strlen(proto.name)+5}; 
strcpy(prototype name,proto_name); 
strcat(prototype name, PROTOTYPE_EXT); 


switch (number_arguments) 
{ 
case 2: 
prototypeptr = (PROTOTYPE*)OC_lookup(prototypename); 
if (prototypeptr) 


threadPtr = (THREAD +*)OC lJookup(operator name); 
if (threadPtr) 
{ 
V_OBJECT *vobjectPtr; 
vobjectPtr = threadPtr—current(); 
vobject locktime = vobjectPtr—getLockTime(); 
if (vobject_locktime>0) // prevent checkout 


as 
rT 


if (stremp/(file_-write_option,"w")==0) // change ”w” to 


cerr < "<ERROR: Module " < vobjectPtr—getNodeName() 
<" locked by : " < vobjectPtr—get Worker() 
<" Resetting write option to read-only>\n"; 
strcpy(file_write_option,"r"); 


cerr << "<Caution: " < vobjectPtr—getNodeName() 
<" is locked.> \n" < "Date Locked: " 
< ctime(&vobject locktime) 
< “operator files checked out in read-only mode\n"; 
} 
else 
cerr < "NODENAME ---> " < vobjectPtr—getNodeName() <"\n"; 
COMPONENTPtr =vobjectPtr—getCOMPONENT(); 
if ((COMPONENTPtr—getIMPfile(file_-write option)) && 
((strcmp(file_write-option,"W")==0) || 
(stremp(file_-write_option,"w" )==0))) 


vobjectPtr — setLock(); // set root lock 
vobjectPtr —+ set Worker(); 

vobject Ptr — resetLastOpFalse(); 
vobject Ptr—putObject(); 


} 


cout < “<Error getting thread in GET_VOBJECT_IMP: >\n"; 
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cout < "<Error getting Prototype in GET.VOBJECT_IMP:>\n":; 
} 
break; 
case 3: 
prototypeptr = (PROTOTYPE+*)OC _lookup(prototype name); 
if (prototypeptr) 


threadPtr = (THREAD +*)OC Jookup(operator name); 
if (threadPtr) 
{ 
V_OBJECT *vobjectPtr; 
vobjectPtr = threadPtr—version(atoi(versionstr)); 
vobject_locktime = vobjectPtr—getLockTime(); 
if (vobject-locktime>0) // prevent checkout 


{ 
if (stremp(file_-write_option,"w")==0) // change ”w” to ”r” 
cerr < "<ERROR: Module " < vobjectPtr—getNodeName() 
<" locked by : " < vobjectPtr—getWorker() 
<" Resetting write option to read-only>\n"; 
strcpy(file_-write_-option,"r"); 


cerr < "<Caution: " < vobjectPtr—getNodeName() 
<" is locked.> \n" 
< "Date Locked: "< ctime(&vobjectlocktime) 
< "operator files checked out in read-only mode\n"; 
} 
else 
cerr < "NODENAME ---> " < vobjectPtr—getNodeName() <"\n"; 
if ((strcmp(file_write_option,"W")==0) || 
(strcmp(file.write_option ,"w")==0)) 


vobjectPtr — setLock(); // set root lock 
vobjectPtr — set Worker(); 

vobjectPtr — resetLastOpFalse(); 
vobjectPtr—putObject(); 


} 
COMPONENTPtr = vobjectPtr—getCOMPONENT(); 
COMPONENTPtr —getIMPfile(file_write_option); 
} 


else 


{ 


cout < "<Error getting thread in GET_VOBJECT_IMP: >\n"; 


} 
} 


else 


{ 


cout < '<Error getting Prototype in GET. VOBJECT_IMP>"; 


} 
break; 


default: 
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cout < "<ERROR: invalid number args for get vobject IMP>\n"; 


} 
} 


void get_vobject_specfile func(int number-arguments, char *proto.name, 
char *operator_name,char +#file_write_option,char +#versionstr) 
{ 


char *prototype-name = new char [strlen(proto mame)+5]; 


strcpy(prototype name,protoname); 
strcat(prototype name,PROTOTYPE-EXT); 


switch (number-arguments) 


{ 


case 2: 
prototypeptr = (PROTOTYPE)OC lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD +*)OClookup(operator_name); 
if (threadPtr) 
{ 
V_OBJECT «*vobjectPtr; 
vobjectPtr = threadPtr—current(); 
vobject_locktime = vobjectPtr—getLockTime(); 
if (vobjectlocktime>0) // prevent checkout 


if (strcmp(file_write-option,"w")==0) // change ”w” to ”r” 


cerr < "<ERROR: Module " < vobjectPtr—-getNodeName() 
<" locked by : " < vobjectPtr—getWorker() 
<" Resetting write option to read-only>\n"; 
strcpy(file_-write option,"r"); 


else 
cerr << "“<Caution: " < vobjectPtr—getNodeName() 
<" is locked.> \n" < "Date Locked: " 
< ctime(&vobject_locktime) 
< "operator files checked out in read-only mode\n"; 
} 
else 
cerr < "NODENAME ---> " < vobjectPtr—getNodeName() <"\n"; 
COMPONENTPtr =vobjectPtr—getCOMPONENT(); 
if ((COMPONENTPtr—getSPECfile(file _write option)) && 
((stremp(file-write_option,"W")==0) || 
(stremp(file_write_option ,"w" )==0))) 
{ 


vobjectPtr — setLock(); // set root lock 
vobjectPtr — set Worker(); 

vobjectPtr — resetLastOpFalse(); 
vobject Ptr—putObject(); 


} 


334 


else 


{ 
cout < "<Error getting thread in GET_VOBJECT_SPEC: >\n"; 
} 
} 


else 


{ 


cout < “<Error getting Prototype in GET.VOBJECT_SPEC:>\n"; 


break; 

case 3: 
prototypeptr = (PROTOTYPE+)OC_lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD +*)OC_lookup(operator_name); 
if (threadPtr) 
{ 
V_OBJECT x*vobjectPtr; 
vobjectPtr = thread Ptr—version(atoi(versionstr) ); 
vobject_locktime = vobjectPtr—getLockTime(); 
if (vobject_locktime>0) // lock was set..prevent ”w” checkout 


if (strcemp(file_write_option,"w")==0) // if attempting ”w” - change to ”r” 


cerr < "<ERROR: Module " < vobjectPtr—getNodeName() 
<" locked by : " < vobjectPtr—getWorker() 
<" Resetting write option to read-only>\n"; 
strcpy(file-write option,"r"); 


else 
cerr < "<Caution: ' < vobjectPtr>getNodeName() 
<" is locked.> \n" < "Date Locked: “" 
< ctime(&vobject_lock time) 
< “operator files checked out in read-only mode\n"; 
} 
else 
cerr < "NODENAME ---> "“ < vobjectPtr—-getNodeName() <"\n"; 
COMPONENTPtr = vobjectPtr—getCOMPONENT(); 
if ((COMPONENTPtr —getSPECfile(file_-write option)) && 
((stremp(file_write_option,"W")==0) || 
(stremp(file-write_option,"w")==0))) 
{ 
vobjectPtr — setLock(); // set root lock 
vobjectPtr — set Worker(); 
vobjectPtr — resetLastOpFalse(); 
vobjectPtr—putObject(); 


} 
} 


else 


{ 


cout < "<Error getting thread in GET_VOBJECT_SPEC:>\n"; 
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} 


else 


{ 


cout < "<Error getting Prototype in GET.VOBJECT_SPEC>"; 
} 
break; 
default: 
cout < "<ERROR: invalid number args for get vobject SPEC>\n"; 


} 
} 


void get_vobject-sourcefile func(int number_arguments, char *proto_name, 
char *operator_name,char +file-write_option,char *versionstr) 


char *prototypename = new char [strlen(protoname)+5]; 


strcpy(prototypename,proto_name); 
strcat(prototypename,PROTOTYPE_EXT); 


switch (number-arguments) 


{ 


case 2: 
prototypeptr = (PROTOTYPE*)OC ookup(prototypename); 
if (prototypeptr) 


threadPtr = (THREAD *)OC lookup(operator name); 
if (threadPtr) 
{ 
V.OBJECT *vobjectPtr; 
vobjectPtr = threadPtr—current(); 
vobject_locktime = vobject Ptr—getLockTime(); 
if (vobjectlocktime>0) // prevent checkout 


if (strcmp(file_-write_option,"w")==0) // change ”w” to ”r” 


cerr < "<ERROR: Module " < vobjectPtr—getNodeName() 
<" locked by : " < vobjectPtr—getWorker() 
<" Resetting write option to read-only>\n"; 
strcpy(file_write_option,"r"); 


else 
cerr < "<Caution: " < vobjectPtr-getNodeName() 
<" is locked.> \n" < "Date Locked: " 
< ctime(&vobject _locktime) 
< "operator files checked out in read-only mode\n"; 
} 
else 
cerr < "NODENAME ---> " < vobjectPtr—getNodeName() <"\n"; 
COMPONENTPtr =vobjectPtr—getCOM PONENT(); 
if ((COMPONENTPtr—getSOURCEfile(file_-write_option)) && 
((stremp(file_write_option,"W")==0) || 


336 


(strcmp(file_write_option ,"w" )==0))) 


vobjectPtr — setLock(); 
vobjectPtr — set Worker(); 
vobjectPtr — resetLastOpFalse(); 
vobject Ptr—putObject(); 


} 
} 


else 


cout < "<Error getting thread in GET_VOBJECT_SOURCE: >\n"; 


} 


else 


{ 


cout < "<Error getting Prototype in GET_VOBJECT_SOURCE: >\n"; 


break; 

case 3: 
prototypeptr = (PROTOTY PE*)OC Jookup(prototypename); 
if (prototypeptr) 


threadPtr = (THREAD +*)OC_lookup(operator_ name); 
if (threadPtr) 
{ 
V-_OBJECT *vobjectPtr; 
vobjectPtr = thread Ptr—version(atoi(versionstr)); 
vobject_locktime = vobjectPtr—getLockTime(); 
if (vobjectocktime>0) // prevent checkout 


BD aes bP 


if (strcmp/(file_write_option,"w")==0) // change ”w” to ”r 


cerr < "<ERROR: Module " < vobjectPtr—getNodeName() 
<" locked by : " < vobjectPtr—get Worker() 
< " Resetting write option to read-only>\n"; 
strcpy(file_write option ,"r"); 


else 
cerr < "“<Caution: " < vobjectPtr-getNodeName() 
<" is locked.> \n" < "Date Locked: " 
< ctime(&vobject_locktime) 
< "operator files checked out in read-only mode\n"; 
} 
else 
cerr < "NODENAME ---> " < vobjectPtr—getNodeName() <"\n"; 
COMPONENTPtr = vobjectPtr>getCOMPONENT(); 
if ((COMPONENTPtr—getSOURCEfile(file-writeoption)) && 
((stremp(file_-writeoption,"W")==0) || 
(strcmp/(file_write_option,"w")==0))) 


vobjectPtr — setLock(); // set root lock 
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vobjectPtr — set Worker(); 
vobjectPtr — resetLastOpFalse(); 
vobjectPtr—putObject(); 


} 


cout < "<Error getting thread in GET. VOBJECT.SOURCE: >\n"; 


} 


else 


{ 
cout < "<Error getting Prototype in GET_VOBJECT_SOURCE>"; 


} 
break; 


default: 
cout < "<ERROR: invalid number args for get vobject SOURCE>\n"; 


} 
} 


void dump-vobject_filesfunc(int number_arguments, char *proto.name, 
char *operatorname,char +file_write_option,char *versionstr) 


char *prototypename = new char (strlen(proto.name)+5]; 
strcpy (prototype name,proto.name); 
strcat(prototype name, PROTOTYPE_EXT); 

Boolean file-operation_successful = FALSE; 


switch (number_arguments) 


{ 


case 2: 
prototypeptr = (PROTOTYPE*)OC Jookup(prototypename); 
if (prototypeptr) 


threadPtr = (THREAD *)OC lookup(operator name); 
if (threadPtr) 
{ 
V_OBJECT *vobjectPtr; 
vobjectPtr = threadPtr—current(); 
vobject_locktime = vobject Ptr—getLockTime(); 
if (vobject_locktime>0) 
// lock was set..prevent ”w” checkout 
{ 
if (stremp/(file_write_option,"w" )==0) 
// if attempting ”W” - change to ”r” 


cerr < “<ERROR: Module " 
< vobjectPtr—getNodeName() < " locked by : " 
< vobjectPtr—get Worker() 
<" Resetting write option to read-only>\n"; 
strcpy(file_write_option,"r"); 
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} 


else 
cerr < "<Caution: " < vobjectPtr—getNodeName() 
<" is locked.> \n" < "Date Locked: " 
< ctime(&vobject locktime) 
< “operator files checked out in read-only mode\n"; 
} 
else 
cerr < "NODENAME ---> " < vobjectPtr—getNodeName() <"\n"; 
file.operation_successful = 
vobjectPtr — checkouttCOMPONENTNode(file write option); 
if ((filecoperation_successful) && 
((stremp(file_-write-option,"W")==0) || 
(strcmp(file_-write_option,"w")==0))) 
{ 
vobjectPtr — setLock(); // set root lock 
vobjectPtr — setWorker(); 
vobjectPtr — resetLastOpFalse(); 
vobjectPtr— putObject(); 


if (!file-operation-successful) 
cerr < "<Error checking out " < vobjectPtr -getName() ; 


} 
else 
{ 
cout < "<Error getting thread in GET_.VOBJECT_FILES:>\n"; 
} 
} 
else 
{ 
cout < "<Error getting Prototype in GET_VOBJECT_FILES:>\n"; 
} 
break, 
case 3: 
prototypeptr = (PROTOTYPE+*)OC_lookup(prototype_ name); 
if (prototypeptr) 


threadPtr = (THREAD +*)OC Jookup(operator_name); 
if (threadPtr) 


V_OBJECT *vobjectPtr; 
vobjectPtr = threadPtr—version(atoi(versionstr)); 
vobject locktime = vobjectPtr—getLockTime(); 
if (vobjectlocktime>0) // prevent checkout 
{ 
if (stremp/(file_write_option,"w")==0) // change ”w” to ”r” 
{ 
cerr < "<ERROR: Module " < vobjectPtr—getNodeName() 
<" locked by : " < vobjectPtr—get Worker() 
<" Resetting write option to read-only>\n"; 
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strcpy(file_write_option,"r"); 


else 
cerr << "<Caution: " < vobjectPtr-getNodeName() 
<" is locked.> \n" < "Date Locked: " 
< ctime(&vobject_locktime) 
< "operator files checked out in read-only mode\n"; 


} 


else 
cerr < "NWODENAME ---> " < vobjectPtr-getNodeName() <"\n"; 
COMPONENTPtr = vobjectPtr—-getCOMPONENT(); 
file.operation_successful = 
vobjectPtr — checkoutCOMPONENTNode(file -write option); 
if ((file-operation.successful) && 
((strcemp(file_write_option,"W")==0) || 
(strcemp(file-write-option,"w" )==0))) 
{ 
vobjectPtr — setLock(); // set root lock 
vobjectPtr — set Worker(); 
vobjectPtr — resetLastOpFalse(); 
vobjectPtr—putObject(); 


if (‘file.operation-successful) 
cerr < "<Error checking out " < vobjectPtr ~getName() ; 


cout < "<Error getting thread in GET. VOBJECT_FILES:>\n"; 


} 


else 


{ 


cout < "<Error getting Prototype in GET.VOBJECT_FILES>"; 


} 
break; 


default: 
cout < "<ERROR: invalid number args for get vobject FILES>\n"; 
} 


} 


void dump-vobject_tree_func(int number_arguments, char +protoname, 
char *operator_name,char +file-write.option, char ¥versionstr) 
{ 


char *prototype_name = new char [strlen(proto.name)+5}; 
strcpy(prototy pe name,proto_name); 
strcat(prototype name, PROTOTYPE-EXT); 

Boolean file_operation.successful = FALSE; 


switch (number_arguments) 


{ 
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case 3: 


prototypeptr = (PROTOTYPE+)OC Jookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD *)OCookup(operator_name); 
if (thread Ptr) 


V-OBJECT *vobjectPtr = thread Ptr—current(); 
vobject_locktime = vobjectPtr—getLockTime(); 
if (vobject_locktime>0) // prevent checkout 


if (stremp/(file_write_option,"w")==0) // change ”w” to ”r” 


cerr < "<ERROR: Module " < vobjectPtr—getNodeName() 
<" locked by : " < vobjectPtr—get Worker() 
<" Resetting write option to read-only>\n"; 
strcpy(file_-write _option,"r"); 


cerr < "<Caution: " < vobjectPtr—getNodeName() 
<" is locked.> \n" < "Date Locked: " 
< ctime(&vobject locktime) 
< "Subtree checked out in read-only mode\n"; 


} 


else 
cerr < "NODENAME ---> " < vobjectPtr—getNodeName() 
<"\nVersion: " < vobjectPtr—getVersionNumber() <"\n\n"; 
file.operation-successful = 
vobjectPtr — checkoutCOMPONENTNode(file write option); 
if ((file.operation_successful) && 
((stremp(file-write-option,"w")==0) || 
(stremp/(file_-write_option,"W")==0))) 


vobjectPtr — setLock(); // set root lock 
vobject Ptr — set Worker(); 
vobjectPtr — resetLastOpFalse(); 
vobject Ptr putObject(); 
} 
if (file-operation-successful) 
vobjectPtr — dumpSubtree(file_-write-option); 
// dump rest of tree 
else 
cerr < "<Error checking out " < vobjectPtr —getName() 
<"“ Aborting dump_vobject_tree func>\n"; 


else 


{ 


cout < "<Error getting thread in DUMP_VOBJECT.TREE:>\n"; 


} 


else 
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cout < "<Error getting Prototype in DUMP_VOBJECT_TREE: >\n"; 


} 
break; 


case 4: 


prototypeptr = (PROTOTYPE*)OC _lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD *)OCJookup(operator_name); 
if (threadPtr) 


V_OBJECT *vobjectPtr = threadPtr—version(atoi(versionstr)); 
vobject_locktime = vobjectPtr—-getLockTime(); 
if (vobjectlocktime>0) // prevent checkout 


if (stremp(file_-write-option,"w")==0) // change ”w” to ”r” 
{ 
cerr < "<ERROR: Module " < vobjectPtr—getNodeName() 
< " locked by : " < vobjectPtr—getWorker() 
<" Resetting write option to read-only>\n"; 
strcpy(file_write option,"r"); 


else 
cerr < "<Caution: " < vobjectPtr-getNodeName() 
<" is locked.> \n" < "Date Locked: " 
< ctime(&vobject_locktime) 
< "Subtree checked out in read-only mode\n"; 
} 
else 
cerr < "NODENAME ---> " < vobjectPtr—getNodeName() 
<"\nVersion: " < vobjectPtr—getVersionNumber() <"\n\n"; 
file.operation_successful = 
vobjectPtr — checkoutCOMPONENTNode(file write option); 
if ((file-operation_successful) && 
((stremp(file-write_option,"w")==0) || 
(stremp(file_-write_option,"W")==0))) 


vobjectPtr — setLock(); // set root lock 
vobjectPtr — set Worker(); 

vobjectPtr — resetLastOpFalse(); 

vob ject Ptr—putObject(); 


} 
if (filecoperation-successful) 
vobjectPtr — dumpSubtree(file_-write_option); 
// dump rest of tree 
else 
cerr < "<Error checking out " < vobjectPtr ~getName() 
<" Aborting dump_vobject_tree_func>\n"; 
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cout < "<Error getting thread in DUMP_VOBJECT_TREE:>\n"; 


} 
} 


else 


{ 


cout < “<Error getting Prototype in DUMP_VOBJECT_TREE>"; 
} 
break; 
default: 
cout < "<ERROR: invalid number args for get vobject TREE FILES>\n'"; 
} 
} 


void long_list_operatorsfunc(int number.arguments, char *«proto_name, 
char *operator_name,char *versionstr) 
{ 


char *prototypename = new char ([strlen(protoname)+5]; 


strcpy(prototype Nname,protoname); 
strcat(prototype name, PROTOTYPE_EXT); 


switch (number_arguments) 


{ 


case 2: 
prototypeptr = (PROTOTYPE+*)OC ookup(prototypename); 
if (prototypeptr) 


threadPtr = (THREAD +*)OC _lookup(operator name); 
if (threadPtr) 


V_OBJECT *vobjectPtr = threadPtr—current(); 
vobjectPtr — longlistOperatorNames(); 


} 


else 


{ 


cout < "<Error getting thread in long list operators:>\n"; 


} 
} 


else 


{ 


cout < “<Error getting Prototype in long list operators:>\n"; 


break; 

case 3: 
prototypeptr = (PROTOTYPE*)OC lookup(prototype.name); 
if (prototypeptr) 


threadPtr = (THREAD +*)OC lookup(operator name); 
if (threadPtr) 


V_OBJECT *vobjectPtr = threadPtr—version(atoi(versionstr)); 
vobjectPtr—longlistOperatorNames(); 
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} 


else 


{ 


cout < "<Error getting thread in long list operators: >\n"; 


} 


else 


{ 


cout < "<Error getting Prototype in long list operators>"; 


break; 
default: 
cout < "<ERROR: invalid number args for long list operators>\n"; 


} 
} 


void long-_list_children_func(int number_arguments, char *proto_name, 
char *operatorname,char *versionstr) 
{ 


char *prototypename = new char [strlen(protoname)+5]; 
strcpy(prototy pe name, proto_name); 
strcat(prototype name,PROTOTYPE_EXT); 


switch (number-arguments) 


{ 


case 2: 
prototypeptr = (PROTOTYPE+)OC_lookup(prototypename); 
if (prototypeptr) 


threadPtr = (THREAD +*)OC lookup(operator name); 
if (threadPtr) 


V_OBJECT *vobjectPtr = threadPtr—current(); 
vobjectPtr — listChildren(); 


} 


else 


{ 
} 


cout < "<Error getting thread in LONG_LIST_CHILDREN: >\n"; 


} 


else 


{ 


cout < "<Error getting Prototype in LONG LIST_CHILDREN: >\n"; 


} 
break; 
case 3: 
prototypeptr = (PROTOTYPE+)OC_lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD +)OC Jookup(operator name); 
if (threadPtr) 
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V_OBJECT «vobjectPtr = threadPtr—version(atoi(versionstr)); 
vobjectPtr—listChildren(); 


else 


{ 


cout < "<Error getting thread in LONGLIST_CHILDREN: >\n"; 


} 


else 


{ 


cout < "<Error getting Prototype in LONG LIST_CHILDREN>"; 
} 
break; 
default: 
cout < "<ERROR: invalid number args for long list children >\n"; 
} 
} 


void long_list_parentsfunc(int number_arguments, char *protoname, 
char *operator_name,char *versionstr) 


char +prototype.name = new char [strlen(proto_name)+5]; 
strcpy(prototype name, proto_name); 


strcat(prototype name,PROTOTYPE_EXT); 


switch (number_arguments) 


{ 

case 2: 
prototypeptr = (PROTOTYPE+*)OC Jookup(prototypename); 
if (prototypeptr) 


threadPtr = (THREAD +*)OC lJookup(operator name); 
if (thread Ptr) 


V-OBJECT +*vobjectPtr = threadPtr—current(); 
V-OBJECT *parentPtr = vobjectPtr—get Parent(); 


if (parent Ptr) 
V_OBJECT «grandparent = parentPtr—getParent(); 
if (grandparent) 
grandparent — listChildren(); 
else 


cout < '" <\nRoot Node: " 
< parentPtr—getNodeName() < ">\n"; 


} 
else 
cout < "<Already at Root V_OBJECT>\n"; 
} 
else 
{ 
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cout < "<Error getting thread in LONG_LIST.CHILDREN: >\n"; 


} 
} 


else 


{ 


cout < "<Error getting Prototype in LONG LIST.CHILDREW:>\n"; 
} 
break; 
case 3: 
prototypeptr = (PROTOTYPE+*)OC lookup(prototype_name); 
if (prototypeptr) 


threadPtr = (THREAD +)OCJlookup(operator name); 
if (threadPtr) 


V-OBJECT *vobjectPtr = threadPtr—version(atoi(versionstr) ); 
V_OBJECT *parentPtr = vobjectPtr—getParent(); 
if (parentPtr) 


V_OBJECT grandparent = parentPtr—getParent(); 
if (grandparent) 
grandparent — listChildren(); 
else 
cout < "<Can’t list Parent/siblings of Root VObject>\n"; 


} 


else 
cout < "<Already at Root V_OBJECT>\n"; 


cout < "<Error getting thread in LONG.LIST.CHILDREN:>\n"; 


} 


else 


{ 


cout < "<Error getting Prototype in LONG LIST_CHILDREN>"; 


} 


break; 
default: 

cout < "<ERROR: invalid number args for long list children >\n"; 
j 


} 


void add_vobject_and-_subtree func(int number_arguments, char *protoname, 
char *operator_name) 
{ 


char +prototypename = new char [strlen(proto_.name)+5]; 


strcpy(prototy pe name, proto_name); 
strcat(prototype name, PROTOTYPE-_EXT); 
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switch (number_arguments) 


{ 


case 2: 
prototypeptr = (PROTOTYPE*)OC lookup(prototypename); 
if (prototypeptr) 


DIRECTORY «capsdirectory; 

capsdirectory = new DIRECTORY(); 

capsdirectory—read directory(operator name); 

capsdirectory ~updatetimestamp(); 

TREENODELlinkedlist operatorList = capsdirectory—getOperatorList(); 
TREENODE +¢rootnode = capsdirectory—find treenode(operator name); 
TREENODE s#tree_root = new TREENODE(rootnode,NULL); 

TREE +workingtree = new TREE(tree_root, operator_name); 
workingtree— build_tree(tree root,operator List); 

cerr < "CHECKIN--> " < operator name < "\n"; 

threadPtr = (THREAD +*)OC_lookup(operator_name); 

V_OBJECT *new-parent = (V-OBJECT +)0; 

if (threadPtr) 


V_OBJECT *vobjectPtr = threadPtr—current(); 
new-parent = vobjectPtr—getParent(); 


V-OBJECT *new-root = tree root—checkin node(new parent); 
if (Inew_root) 
{ 
cerr < "<Error: Could not establish new_root in" 
< “add_vobject_and_subtreefunc. Aborting.>\n"; 
break; 
} 
new root—set NodeName(treeroot— getname()); 
tree root—checkin-subtree(new root); 


} 


else 


{ 


cout < "<Error getting Prototype in ADD_VOBJECT_Subtree:>\n"; 


} 
break; 


default: 
cout < "<ERROR: invalid number args for add vobject & SUBTREE>\n"; 
j 
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APPENDIX E 
SETUP FILES 


A. ONTOS HEADERS/MAKEFILES PREPARATION NOTES 
Only the ReferenceMacros.h ONTOS specific header file is included in this appendix 


due to its unique nature. It is a file built after the ONTOS system was released and was not 
included with the standard beta package. 


The makefiles are included as an aid for the user in developing ONTOS applications. 


B. PRINTING NOTES 

This code was prepared for printout using the c++2latex code generator. This generator parses the 
ASCII text input files and places latex commands where directed. This makes the code layout more readable 
and highlights the important data strucutes and key words within the C++ code. The latex output was then 
converted to postscript format with the dvitops program. 


C. MAINTENANCE 


This code is maintained at the Naval Postgraduate School Computer Science department. 
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//.SCCS ID.......: 1.3 
//.Release No....: 1 


//.Date.............2 9/16/91 

//.Compuler......: Glockenspiel C++ 2.1 

Pe svcaseese! 

// End header comments ----------------------------------------------------- 
/* 


Me he he oe aie ae Me he hee hee ee he he he ae he he hee oe he oe ee oe ae ee a a a eae ae a a ac ae a oh i ah a a a ah a a a ac ae ae ae ah a a a aa ai a oo a a ao a oe 
* 


* Disclaimer: 

« 

* This header file is a special header developed entirely by 

* Ontologic, Inc. 

* Copyright (c) 1990, Ontologic, Inc. USA All rights reserved. 
* 


* It’s purpose is to handle Ontos References within the user code of 
* the Design Database System and thus is included as an integral portion 
* of the Design Database code. 


EERE EEK EERE EEE EEK EERE EKER EEE EEE 


*/ 
#include <Reference.h> 


// Note that the compiler must know that SpecType is an Entity*, 
// e.g., by having seen the appropriate class definition. 


// FOR Macro form use this define and continuation characters. 


#define TypeCheckReference( SpecReference, SuperReference, SpecType )\ 
class SpecReference : public SuperReference {\ 

public:\ 

SpecReference() {}\ 

SpecReference(SpecType* referent, Entity* context)\ 

: (referent, context) {}\ 

SpecReference(SpecType* referent, StorageManager* context)\ 
: (referent, context) {}\ 

SpecReference(SpecType* referent)\ 

: (referent) {}\ 

void Reset(Entity* referent, Entity* context)\ 

{\ 

SuperReference::Reset(referent, context);\ 

}\ 

void Reset(Entity* referent, StorageManager* context)\ 
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SuperReference::Reset(referent, context);\ 
\ 
void Reset(Entity* referent)\ 


SuperReference: :Reset(referent);\ 

)\ 

void Reset(SpecReference& otherRef, \ 

StorageManager* oldContext, \ 

StorageManager* currentContext)\ 

{\ 

SuperReference::Reset(otherRef, oldContext, currentContext);\ 
)\ 

void Reset(SpecReference& otherRef, \ 

Entity* oldContext, \ 

Entity* currentContext)\ 

(\ 

SuperReference::Reset(otherRef, oldContext, currentContext);\ 
)\ 

void Init(SpecT ype* referent, Entity* context)\ 


SuperReference::Init(referent, context);\ 
)\ 

void Init(SpecType* referent, StorageManager* context)\ 
{\ 

SuperReference::Init(referent, context);\ 
WN 

void Init(SpecType* referent)\ 

{\ 

SuperReference::Init(referent);\ 

)\ 

void Init(SpecReference& otherRef, \ 
StorageManager* oldContext, \ 
StorageManager* currentContext)\ 


SuperReference::Init(otherRef, oldContext, currentContext);\ 
)\ 

void Init(SpecReference& otherRef, \ 

Entity* oldContext, \ 

Entity* currentContext)\ 

{\ 

SuperReference::Init(otherRef, oldContext, currentContext) 
)\ 

SpecType* Binding(Entity* context, LockType lock=DefaultLock)\ 
{\ 

return (SpecType*) SuperReference::Binding(context, lock);\ 
\ 

SpecType* Binding(StorageManager* context, \ 

LockType lock=DefaultLock)\ 


return (SpecType*) SuperReference::Binding(context, lock);\ 
)\ 
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SpecT ype* activeBinding(Entity* context)\ 


return (SpecType*) SuperReference::activeBinding(context);\ 
)\ 
SpecType* activeBinding(StorageManager* context)\ 


{\ 
return (SpecType*) SuperReference::activeBinding(context);\ 
)\ 


} /* invocation supplies final *;’ */ 


#* 

Sonate ee game ee SR ee eR ae a OO OO a a 
#* 

#* Ontologic, Inc. 

#* Copyright (c) 1990, Ontologic, Inc. USA All rights reserved. 

#* 

Senet eas oe Me eM A, Me Ms ee ee A We ee he He ee he Ae ice hee ie 0 Ac ae le akc hc 2k cic hc Ac eich Ac ak ie ic ak cei. ce ie 3 


#* 
# file: makefile 
include make-macros 


OBJECTS = main.o component.o versioned_object.o thread.o text_object.o \ 
prototype.o configuration.o evaluation.o directory.o\ 

tree.o treenode.o queue.o nodesupport.o protfunc.o \ 

conffunc.o vobjectfunc.o 

CLASSIFY_HDRS = thread.h text_object.h prototype.h configuration.h \ 
componenth versioned_object.h 

NONCLASSIFY_HDRS = evaluation.h directory.h tree.h treenode.h\ 
queue.h nodesupport.h protfunc.h \ 

conffunc.h vobjectfunc.h ddbdefines.h tracer.h 

HEADERS = $(CLASSIFY_HDRS) $(NONCLASSIFY_HDRS) 


# Objectfile/Headerfile dependencies: 
# Persistent classes need their headers, and the application 
# needs all headers. 


tree.o: tree.h 

nodesupport.o: nodesupport.h 
protfunc.o: protfunc.h 

evaluation.o: ddbdefines.h 
component.o: componenth ddbdefines.h 
thread.o: thread.h ddbdefines.h 
versioned_object.o: versioned_objecth 
text_object.o: text_object.h ddbdefines.h 
configuration.o: configuration.h 
prototype.o: prototype.h 

main.o: $(HEADERS) 
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include make-targets 


#* 

PEE EERE EEEEEEE EERE EE EEE EEE EEE EE REE EEE EEE EEE EEE EERE EEE EEE EEE EEE EEE EES EH 
#* 

#* Ontologic, Inc. 

#* Copyright (c) 1990, Ontologic, Inc. USA All rights reserved. 

#* 


PER EEEEEEEREEEEEEEE EEE EE EEEEEEE EEE EEE EERE EEEEEEEEE EEE EE EEE ERE EE EREREEE ES 


#* 


# file: make-macros 


# Cplus sets up function bindings and then calls CC, but 

# doesn’t always produce the best warnings and error-messages 
# So use CC when debugging warnings and errors, and use 

# cplus to prepare for linking 

# You can choose a compiler on the UNIX command line; just 
# specify COMPILER, e.g., ‘make COMPILER=CC’ 

faa eR i sh gem i yy 
COMPILER = $(ONTOS_BIN)/cplus 

#COMPILER = CC 


# We have versions for SUN and GLOCK 
#WHICH_COMPILER = CC_SUN 
WHICH_COMPILER = CC_GLOCK 


bh oes ee nn no ee nn ee 
# Flags for classify: See the System Reference 


# By choosing EXTENSION=+X (perhaps on the command line) one 
# enables instance-iteration 

a 

# By choosing VERBOSE=+v (perhaps on the command line) one 
# can see output from ‘classify’ 

ca 

Sacre e reise cree vue len aad ee 

VERBOSE = 

#VERBOSE = +v 

EXTENSION = 

#EXTENSION = +X 


ONTOS_DIR= /usr/local 
ONTOS_BIN= $(ONTOS_DIR)/bin 


INCLUDE = -I$(ONTOS_DIR)/include/ONTOS -I$(ONTOS_DIR)/include/hxx -I/usr/include 
LIBRARY = -L$(ONTOS_DIR)/lib -IONTOS 
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KERNEL_DB = $(ONTOS_DIR)/ontos/db/OntosSchema 
REGISTER_FLAG = $(THE_DB_DIR)/alreadyRegistered 


SERVER_HOST = sun51 


THE_DB_DIR = $(HOME)/ontos 
MY_NAME = ddb53 


first_target: again 


#* 

off, Me He ae he he He ae he ee he BAe ae afc Be ae he he Be Ne Hee he he ae Ne He He he she he she cafe fe hc he BAe Be afc Bic Be ale Bhc ae ale hc ae ale Be ale hc Be afc ae ae ae he BAe ae Ke ae ate afc Ae ae aie Ae afc Bie He ake ic 
#* 

#* Ontologic, Inc. 

#* Copyright (c) 1990, Ontologic, Inc. USA All nights reserved. 

#* 


Jp A He He He He he Me He he He ae He He ae he ae he Be He ee Mee he ae ee he ae he he ae afc ake he ae 2h fe ae afc ae he ae he ofc ae ae ae ie ale aie ae ale fe ae ale a 2c ae ake ale ae afc ae ade ae ake ae ae ae ake he 2 


#* 


# file: make-targets 


# Extra flags for the compiler/linker. -g means include debug info. 
# -Bstatic forces the loader to use static libraries, which may 
# help debugging. 


CFLAGS = -g 
LFLAGS = -g -Bstatic 


CXX.0! 

@echo ‘... Compiling $*.cxx with $(;COMPILER)’ 

@if [ “$(COMPILER)” = “CC” ];\ 

then $(COMPILER) -c -D$(WHICH_COMPILER) $(CFLAGS) \ 
$(INCLUDE) $*.cxx; \ 

rm -f $*.0;\ 

else \ 

$(COMPILER) -c -D$(WHICH_COMPILER) $(CFLAGS) \ 
$C(INCLUDE) $*.cxx; \ 

fi 


a a crm mc ce cc ce es a ee Se es ec 8S eS SS 
——> a ee Se ee ee es es ee ee ee ee ee ee es a ee SS ee eS ESS SSS 
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# The second part of this file uses the above information to 





# let you ‘make’ the various goals. 
{== SS Se er ee a a a a SS 
$2 ee ee ee ee ee 


WR Lo ncncancevtlies testo eee 
# Recompile/relink/reload-schemata if necessary 
Hon nccccuceccctcceccnsacccaccssssecusesseasecesenceeesseeeeseee 
again: main loadTypes 

test: again 

main $(MY_NAME) 


# Register, compile, link, load-schemata 
Ph Bosch ooo nw nen nen ee eee 
first: register main loadTypes 


main: $(OBJECTS) 

@echo ... Linking main 

@($(COMPILER) $(LFLAGS) -o main -QUIET \ 
$(OBJECTS) $(LIBRARY)) 


register: 

@if [ -f $7REGISTER_FLAG) J; then \ 

echo You are already registered!; \ 

exit 1;\ 

else touch $(REGISTER_FLAG); \ 

fi 

#cp $(KERNEL_DB) $(THE_DB_DIR)/$(MY_NAME) 
#chmod u+w $(THE_DB_DIR)/$(MY_NAME) 

#@echo ... Running DBATool to register 
#@$(ONTOS_BIN)/DBATool -e\ 

# register kerne] $(MY_NAME)_kern on $(SERVER_HOST) \ 
# at $7THE_DB_DIR)/$(MY_NAME) 
#@$(ONTOS_BIN)/DBATool -e\ 

# add area $(MY_NAME)_kern to $(MY_NAME) 

fen eee sec Sods ncn nwsenscncacesecsesu tee ete eee 

# Add two more areas to the logical database, which initially 
# contained only the kemel-area. 

e 

# We also illustrate the process of determining which area is 
# primary. 

1) Ss) Seana Sua eile NS 
@$(ONTOS_BIN)/DBATool -e\ 

create area $(MY_NAME)_A1 on $(SERVER_HOST) \ 
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at STHE_DB_DIR)/$(MY_NAME)_areal 
@$(ONTOS_BIN)/DBATool -e\ 

create area $(MY_NAME)_A2 on $(SERVER_HOST) \ 

at $(THE_DB_DIR)/$(MY_NAME)_area2 
@$(ONTOS_BIN)/DBATool -e\ 

add area $(MY_NAME)_A1 to $(MY_NAME) 
@$(ONTOS_BIN)/DBATool -e\ 

add area $(MY_NAME)_A2 to $(MY_NAME) 
@$(ONTOS_BIN)/DBATool -e\ 

set db $(MY_NAME) primary $(MY_NAME) kern 
@$(ONTOS_BIN)/DBATool -e\ 

show db #MY_NAME) 

@3$(ONTOS_BIN)/DBATool -e\ 

show db 

2 eedeeee daa 5 See aa 

# Make backup copies of the areas, so that we can always start 

# fresh. We can’t simply copy the master version of OntosSchema 
# since (a) we can register a kernel only once and (b) when 

# we register the kernel, OCServer changes an area-mapping 

# section in the header of the area. 

i eS a es 
@echo 

@echo Waiting for the above changes to take hold before 
@echo making backup copies. 

sleep 20 

-mkdir $(THE_DB_DIR)/backup 

cp $(THE_DB_DIR)/$(MY_NAME)_Kemel $(THE_DB_DIR)/backup 
cp $(THE_DB_DIR)/$(MY_NAME)_area? $(THE_DB_DIR)/backup 


# Refresh your Directory in the kernel database, and prime 
# schema for reloading. 


freshDB: 

@rm -f loadTypes 

@rm -f $(THE_DB_DIR)/*JRN* 

@cp $(THE_DB_DIR)/backup/* $(THE_DB_DIR) 
chmod ugo+rw $(THE_DB_DIR)/$(MY_NAME) 


# Load schemata, ie., information about user-defined types 
# into the database. Since we don’t support migration, load 
# is performed only on a fresh database 

é 

# +D indicates logical database. 


loadTypes: $(CLASSIFY_HDRS) 
@make freshDB 

@make loadTypes2 

@touch loadTypes 
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